perl實現HTML2TXT中文轉換

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對應的字元值á和 <<替換成空