我想打開並讀取文本文件,然後將每行這行文件的內容寫入HTML文件。到目前爲止,我已經想出了這一點:用Perl讀寫文本文件
use strict;
use locale;
my (@datei, $i);
open (FHIN,"HSS_D.txt") || die "couldn't open file $!";
@datei= <in>;
close FHIN;
open (FHOUT, ">pz2.html");
print FHOUT "<HTML>\n";
print FHOUT "<HEAD>\n";
print FHOUT "<TITLE>pz 2</TITLE>\n";
print FHOUT '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">';
print FHOUT "\n</HEAD>\n";
print FHOUT "<BODY>\n";
for ($i = 0; $i < @datei; $i++) {
print FHOUT "<p>$datei[$i]</p>\n";
}
print FHOUT "</BODY></html>\n";
close (FHOUT);
然而,每次我得到一個編譯錯誤,我無法弄清楚什麼是錯的。謝謝你的幫助!
發佈您收到的EXACT錯誤消息。你的代碼爲我編譯。 – toolic
'charset = iso-8859-1'? 1998年是什麼? – melpomene
@melpomene,請不要以charsets開頭,這是一片沼澤。我寧願看到它的指定,然後盲目地相信它是UTF-8 ......它不是指定爲描述Perl文件中使用的編碼的頂部的附註,也不是在輸入到輸出處指定的編碼。 。也許這是拉丁語-1的確? – vanHoesel