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);
|