mirror of
https://github.com/radareorg/sdb.git
synced 2026-11-09 12:41:29 -10:00
14 lines
237 B
Perl
14 lines
237 B
Perl
#!/usr/bin/perl
|
|
my $str = "";
|
|
while(<STDIN>) {
|
|
s,\n,,g;
|
|
$str .= $_;
|
|
}
|
|
$str=~s,(\s+):,:,g;
|
|
$str=~s,}(\s+),},g;
|
|
$str=~s/,(\s+)/,/g;
|
|
$str=~s/:(\s+)/:/g;
|
|
$str=~s,{([^"])([^:]*),{"$1$2",g;
|
|
$str=~s/,([^"])([^:]*)/,"$1$2"/g;
|
|
print $str."\n";
|