tsvファイルの読み込みエラー

締切済

質問者：iwaigawa2006
質問日時：2006/01/11 15:29
回答数：1件

ファイル読み込み後、内容表示するプログラムをつくったのですが、tsvファイルを読み込むとWEB画面には何も表示されず真っ白になってしまいます(普通のtxtファイルでもタブが入っていると表示しません)。tsv読み込み時は何か設定が必要なのでしょうか?

#!/usr/local/bin/perl

print "Content-Type: text/html\n\n";
print "<html>\n";
print "<head><title>サンプル</title></head>\n";
print "<body>\n";

if (open(FH, "data/block.txt")) {
@file = <FH>;
close(FH);

print "ファイルの内容は、 \n";
foreach $data (@file) {
print "$data ";
}
print "です。\n";
} else {
print "ファイルを読み込めません。";
}

print "</body>\n";
print "</html>\n";

exit;

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： ___noboru___
回答日時：2006/01/11 16:59

(Perl の質問ではなくて HTML の質問だと思いますが…)。

何も表示されないのはそのファイルの中に '<' か '>' の記号が入っているからではないですか? もし入っているならそれを < や > に変換しなければちゃんと出ません。(但し <pr> ... </pr> で括った場合は出ることがあります。ブラウザ依存だと思いますが)。

そのプログラムを改造するとすると

foreach $data (@file) {
print "$data ";
}

の所を

foreach $data (@file) {
$data =~ s/</</g;
$data =~ s/>/>/g;
print "$data ";
}

のようにすればできます。