mirror of
https://git.proxmox.com/git/pve-docs
synced 2025-08-04 16:44:25 +00:00
17 lines
255 B
Perl
17 lines
255 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use JSON;
|
|
|
|
my $data_str = "";
|
|
while (<main::DATA>) { $data_str .= $_; }
|
|
|
|
my $fileinfo = decode_json($data_str);
|
|
|
|
print to_json($fileinfo, { pretty => 1 });
|
|
|
|
die "implement something useful instead";
|
|
|
|
__END__
|