json2text.pl « scripts - github.com/marian-nmt/marian.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

json2text.pl « scripts - github.com/marian-nmt/marian.git - Unnamed repository; edit this file 'description' to name the repository.

index : github.com/marian-nmt/marian.git

Unnamed repository; edit this file 'description' to name the repository.

www-data

summary refs log tree commit diff

path: root/scripts/json2text.pl

blob: 7bd6117b23be9ae4ede846c4daab9b3ec47decf4 (plain)

#!/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);