批量反编译chm文档的脚本

chm文档可使用\windows\hh.exe反编译，但它一次只能反编译一个chm文档，也不支持长文件名，我写了一个脚本使之可以批量反编译chm文档，当然也可以“支持”任何合法的文件名（这里之所以把支持括起来是因为脚本里使用了小伎俩，并非真的使hh支持长文件名），使用方法：脚本名 filename1 filename2 ...(这里的filename 可以支持通配符，如*.chm.

#!/usr/bin/perl #Decompile .chm file to html format. #Author Huang Yong. #2007-9-10 #Usage:progname filename1 filename2 ... #可使用通配符 use File::Copy; use File::Basename; sub decompiler {     my $chmfile = $_[0];     my $tmp = "temp";     while (-e "$tmp.chm" or -d $tmp){         my $i=1;     $tmp = $tmp.$i;     $i++;     }         die "Cannot open file $chmfile" unless (-e $chmfile);          copy($chmfile,"$tmp.chm") or die "Copy failed: $!";          mkdir ("$tmp") or die "Cannot create temp!";     `hh.exe -decompile $tmp $tmp.chm`;     my $tm = basename($chmfile);     my $html_dir;     if ($tm =~ m@(.+)\.chm@i){     $html_dir = $1;     }     move("$tmp",$html_dir);     unlink ("$tmp.chm"); } foreach(@ARGV){     my @chmfile = glob $_;     foreach $file(@chmfile){         print "正在反编译 $file,请稍候...\n";         decompiler($file);         print "文件$file编译完成。\n"     }    }

Very nice! Up

好，顶一下。

weiqiboy  代码是用什么工具软件上色?

谢谢

简单用不错，但是文件名称中不能包含空格 多少算个 bug windows文件中包含空格的特别多
还是感谢你

点击插入程序代码按扭就行了。

感谢兄台指出，确实存在这样的问题，看来简单解析命令行参数还搞不定此事，哪位兄台有什么好的解决办法吗？

修改后的代码，现在应该能处理文件名包含空格的情况了，请指正。

#!/usr/bin/perl #Decompile .chm file to html format. #Author Huang Yong. #2007-9-10 #Usage:progname filename1 filename2 ... #可使用通配符 use File::Copy; use File::Basename; sub decompiler {     my $chmfile = $_[0];     my $tmp = "temp";     while (-e "$tmp.chm" or -d $tmp){         my $i=1;     $tmp = $tmp.$i;     $i++;     }         die "Cannot open file $chmfile" unless (-e $chmfile);          copy($chmfile,"$tmp.chm") or die "Copy failed: $!";          mkdir ("$tmp") or die "Cannot create temp!";     `hh.exe -decompile $tmp $tmp.chm`;     my $tm = basename($chmfile);     my $html_dir;     if ($tm =~ m@(.+)\.chm@i){     $html_dir = $1;     }     move("$tmp",$html_dir);     unlink ("$tmp.chm"); } foreach(@ARGV){     my @chmfile;     if(m@[*?[]]@){        @chmfile =glob($_);     }     else{        push(@chmfile,$_);     }        foreach $file(@chmfile){         print "正在反编译 $file,请稍候...\n";         decompiler($file);         print "文件$file编译完成。\n"     }    }

支持下！

昨天晚上又看了代码，发现了两个BUG还有一点不太简洁的地方，修改如下。

#!/usr/bin/perl #Decompile .chm file to html format. #Author Huang Yong. #2007-9-10 #Usage:progname filename1 filename2 ... #可使用通配符 use File::Copy; use File::Basename; sub decompiler {     my $chmfile = $_[0];     my $tmp = "temp";     my $i=1;     while (-e "$tmp.chm" or -d $tmp){     $tmp = $tmp.$i;     $i++;     }         die "Cannot open file $chmfile" unless (-e $chmfile);          copy($chmfile,"$tmp.chm") or die "Copy failed: $!";          mkdir ("$tmp") or die "Cannot create temp!";     `hh.exe -decompile $tmp $tmp.chm`;     my $html_dir = basename($chmfile);     $html_dir =~ s/\.chm$//;     move("$tmp",$html_dir);     unlink ("$tmp.chm"); } for(@ARGV){     my @chmfile;     if(m@[*?\[\]]@){        @chmfile =glob($_);     }     else{        push(@chmfile,$_);     }        for $file(@chmfile){         print "正在反编译 $file,请稍候...\n";         decompiler($file);         print "文件$file编译完成。\n"     }    }