debian/scopes-recommends-generator · unity8

on ac4b821 help sign in

unity8/debian/scopes-recommends-generator

27 lines 460 B history raw

1#!/usr/bin/perl -w

3use strict;

4binmode STDOUT, ":utf8";

5use utf8;

7use JSON;

9my $json;

11 local $/; #Enable 'slurp' mode

12 open my $fh, "<", $ARGV[0];

13 $json = <$fh>;

14 close $fh;

16# get it to a scalar

17my $j = "[" . $json . "]";

19my $decoded_json = decode_json( $j );

21my $recommends_list = "";

22for my $record ( @$decoded_json ) {

23 foreach my $key ( keys(%$record) ) {

24 $recommends_list = $recommends_list . $key . ", ";

25 }

27print $recommends_list;