mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-16 03:33:08 +00:00
11 lines
203 B
Plaintext
11 lines
203 B
Plaintext
|
#!/bin/perl
|
||
|
|
||
|
use JSON;
|
||
|
|
||
|
my $infile = shift @ARGV;
|
||
|
my $outfile = shift @ARGV;
|
||
|
my $info = do $infile;
|
||
|
$info = JSON->new->relaxed->pretty->encode($info);
|
||
|
open(my $outfh, '>', $outfile);
|
||
|
print $outfh $info;
|