blob: 0d688f50e4abcd498236600fb23a08988e137ae7 (
plain)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #!/usr/bin/perl -w use strict; binmode STDOUT, ":utf8"; use utf8; use JSON; my $json; { local $/; #Enable 'slurp' mode open my $fh, "<", $ARGV[0]; $json = <$fh>; close $fh; } # get it to a scalar my $j = "[" . $json . "]"; my $decoded_json = decode_json( $j ); my $recommends_list = ""; for my $record ( @$decoded_json ) { foreach my $key ( keys(%$record) ) { $recommends_list = $recommends_list . $key . ", "; } } print $recommends_list;
|
