| 1 | #!/usr/bin/perl
|
| 2 | use strict;
|
| 3 | use warnings;
|
| 4 |
|
| 5 | use JSON;
|
| 6 |
|
| 7 | my $json = JSON->new->utf8->space_before(0)->space_after(1)->indent(1)->canonical(1);
|
| 8 |
|
| 9 | my $new_json = {};
|
| 10 | my $old_json = '';
|
| 11 |
|
| 12 | while (defined(my $line = <STDIN>)) {
|
| 13 | $old_json .= $line;
|
| 14 | }
|
| 15 |
|
| 16 | $old_json = decode_json($old_json);
|
| 17 |
|
| 18 | for my $l (@{$old_json}) {
|
| 19 | $new_json->{$l->{lang}} = [] unless $new_json->{$l->{lang}};
|
| 20 | push @{$new_json->{$l->{lang}}}, @{$l->{users}};
|
| 21 | }
|
| 22 |
|
| 23 | print $json->encode($new_json);
|