mirror of
https://github.com/marian-nmt/marian.git
synced 2024-12-03 03:54:56 +03:00
17 lines
220 B
Perl
Executable File
17 lines
220 B
Perl
Executable File
#!/usr/bin/env 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);
|