6 use Data::Dump qw(dump);
8 my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1 });
9 open(my $csv_fh, '>:encoding(utf8)', 'crossbi-export.csv') or die "crossbi-export.csv: $!";
17 my $result = get("https://www.bib.irb.hr/$radid/json");
18 warn "# result = $result\n";
20 my $json = decode_json $result;
22 warn "# json = ",dump($json);
25 @columns = sort grep { !/urls/ } keys %{$json->{items}->[0]};
26 warn "## columns = ",dump(@columns);
27 $csv->say( $csv_fh, \@columns );
31 foreach my $item ( @{ $json->{items} } ) {
32 warn "## item = ",dump( $item );
33 foreach my $col ( @columns ) {
34 push @$row, $item->{$col};
38 warn "# row = ",dump( $row );
40 $csv->say( $csv_fh, $row );
44 close($csv_fh) or die "crossbi-export.csv: $!";