You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
298 B
18 lines
298 B
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use 5.10.0;
|
|
use JSON;
|
|
use IO::Handle;
|
|
|
|
my $coder = JSON::XS->new->utf8->pretty->allow_nonref;
|
|
|
|
STDOUT->autoflush(1);
|
|
|
|
while (my $record = <STDIN>) {
|
|
chomp ($record);
|
|
my $decoded = $coder->decode($record);
|
|
say $coder->encode($decoded->{message});
|
|
}
|