--------------------------------------------------------------------------------
use feature qw(say);
use HTML::TreeBuilder;
use File::Basename;
if ($#ARGV < 0) {
say "/n/nusage: chm2htm.pl your.chm1 [your.chm2 ...]";
exit;
}
sub dump_chm
{
my ($chm_name) = @_;
say "processing file : ".$chm_name;
my $base_name = basename($chm_name, ".chm");
system("hh -decompile $base_name $chm_name");
my @hhcs = glob("$base_name/*.hhc");
for my $hhc_file (@hhcs) {
my $tree = HTML::TreeBuilder->new; # build empty tree
$tree->parse_file($hhc_file); #parse hhc file as HTML
$tree->elementify(); #optional prevent reparse
@objects = $tree->look_down("_tag","object"); #all object
#say "there ar $#objects ob";
for my $ob (@objects) {
my ($el, $dst, $name);
$el = $ob->look_down("name", "Local"); #Local val as <a> href URL
if (defined($el)) {
$dst = $el->attr('value')
}
$el = $ob->look_down("name", "Name"); #Name val as <a> text
if (defined($el)) {
$name = $el->attr('value')
}
#say sprintf('<a href="%s">%s</a>', $dst, $name);
if (defined($dst) && defined($name)) {
$ob->replace_with(
sprintf('<a href="%s">%s</a>', $dst, $name)
);
} else {
$ob->replace_with(
sprintf('<strong>trans by chm2htm : meet some unkown object</strong>', $dst, $name)
);
}
}
my $outfilename = $base_name . "/CHTOC_" . basename($hhc_file, ".hhc") . ".htm";
say 'TOC file put into : '.$outfilename;
my $outfile;
open $outfile, ">", $outfilename;
say $outfile $tree->as_HTML("", " "); #say out the new html text
# Now that we're done with it, we must destroy it.
$tree = $tree->delete;
}
}
dump_chm($_) for (@ARGV);