#use perl 5.8
use Encode;
unless($ARGV[0]){
print "用法\n";
print "encode.exe 待处理文件 待处理文件编码格式 要转换的编码格式 \n";
print "例子 encode.exe a.html utf-8 gb2312 \n";
print "www.cn-dos.net By junchen2. ";
exit;
}
open(FHIN,"$ARGV[0]") or die "enter a file,please\n";
open(FHOUT,">_$ARGV[0]") or die "can not create _$args[0]\n";
while(<FHIN>){
my $temp=encode($ARGV[2],decode("$ARGV[1]",$_));
print FHOUT $temp;
}
close FHIN;
close FHOUT;
或者用perl脚本。上面是我以前用perl写的。
[ Last edited by junchen2 on 2008-10-15 at 02:14 ]作者: ily2013 时间: 2008-10-15 09:30 谢谢2楼的回答,但下载回来的html文件里已经包含你所述代码!对perl不熟!还是很感谢你的回答!