use strict;
use warnings;
use utf8;
use JSON;
use autodie;
use HTML::TreeBuilder;
my $string;
{
local $/;
open my $fh1,"<files.json" or die "open failed <files.json>: $!\n";
$string = <$fh1>;
close $fh1 or die "close failed <files.json>: $!\n";
}
# Parse JSON in PERL
my $data = decode_json($string);
# Initialize HTML
my $html = "<html><head><title>JSON Viewer</title></head><body><table border=\"1\"><thead><tr><th width=\"300\">Keys</th><th width=\"500\">Values</th></tr></thead><tbody>";
# Update HTML
foreach my $key (keys(%$data))
{
$html = $html."<tr><td>".$key."</td><td>";
my $values = $data->{$key};
foreach my $value (@{$values})
{
$html = $html.$value."<br/>";
}
$html = $html."</td></tr>";
}
# Generate HTML
$html = $html."</tbody></table></body></html>";
my $h = HTML::TreeBuilder->new_from_content($html);
open my $fh2,">files.html" or die "open failed <files.html>: $!\n";
print $fh2 $h->as_HTML('',"\t") or die "print failed <files.html>: $!\n";
close $fh2 or die "close failed <files.html>: $!\n";
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.