mirror of
https://github.com/marian-nmt/marian.git
synced 2024-12-11 22:17:27 +03:00
15 lines
199 B
Perl
15 lines
199 B
Perl
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); |