blob: 8ddce12cb56e8b8a4140cb2a21ab1b58f7284d4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
use strict;
use JSON;
use Data::Dumper;
my $json = "";
while(<STDIN>) {
$json .= $_;
}
my $d = from_json($json);
my @v;
foreach my $k (keys %$d) {
$v[$d->{$k}] = $k;
}
print "$_\n" foreach(@v);
|