设为首页 收藏本站
云服务器等爆品抢先购,低至4.2元/月
查看: 1235|回复: 0

[经验分享] 支持自动TOC超文本目录生成的chm转换器(perl脚本)

[复制链接]

尚未签到

发表于 2017-5-19 13:11:03 | 显示全部楼层 |阅读模式
  早些时候为自已使用方便编写了一个将chm解压结果文件压中的hhc文件转换成目录式html的脚本。如果大家需要这个功能,可以从这里 找到。两个脚本程序都是使用perl语言编写,所以你需要一个比较IN的perl发行版(区区推荐是ActivePerl )。
  用google 很容易就能找到windows系统内置的chm解压方式:
  HH.EXE -decompile [解压至路径] [被解压chm文件路径]
  对比了一下HH.exe和区区常用的7z,发现hh.exe decompile出来的文件更加干净一些(没有meta信息文件),这正是区区想要的,所以,将原来的hhc2idx.pl改写成chm2htm.pl,支持直接由chm直接生成一个目录,其中的所有hhc文件会分别产生一个名字类似"CHTOC_XXXXX.htm"的超文本目录网页。
  有两个原因使得这个工具很有用:
  不是所有环境下看chm都很方便,比如linux/手机/NDS
hh真的不是很便捷的htm查看器,相比于现代化的Browser,它太弱
程序使用方法很简单(尤其对于程序员而言),在安装好ActivePerl 之后,在命令行中输入(最好先cd到chm文件所在目录) :
  chm2htm.pl [你的chm文件名]
  命令成功运行的话,会以chm文件名为目录名新建一个导出目录。
  如果在使用中发现有任何问题,欢迎反馈。
  下面是程序源码,因为CSDN对perl脚本的处理有bug(会自行加如型如"mce_ref=xxxx"之类的无关文本),所以是自行调色的:
  
--------------------------------------------------------------------------------
  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);

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-379128-1-1.html 上篇帖子: [技术学习]GRETA: 一个vc++实现的支持Perl正则表达式的程序库 下篇帖子: Perl分析xml文件并生成csv数据文件,同时写入数据库
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表