perl实现HTML2TXT中文转换

猫猫1

　　Perl实现HTML2TXT中文转换



use HTML::TreeBuilder;
use HTML::FormatText;
open OUTPUT,">output.txt";
$file = "C:/test.html";
$tree = HTML::TreeBuilder->new->parse_file("$file");
$formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);
print OUTPUT $formatter->format($tree) ;
close OUTPUT;
　　
　　1、若执行脚本时，提示Can't locate HTML/FormatText.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .)
　　解决方法：
　　1) 安装HTML::FormatText模块，安装成功后，运行脚本
　　2）若安装后，仍然有该错误提示，检查C:/Perl/site/lib/HTML或C:/Perl/lib/HTML目录下是否存在FormatText.pm文件，若不存在，将HTML-Format-2.10\lib\HTML目录下的.pm文件拷贝到C:/Perl/site/lib/HTML或C:/Perl/lib/HTML目录后执行脚本
　　
　　2、若生成的中文中有乱码，将C:\Perl\site\lib\HTML\FormatText.pm中下列语句注释掉
　　#$text =~ tr/\xA0\xAD/ /d;  #将A0和AD对应的字符值&aacute;和 <<替换成空