Perlについての質問箱 36箱目
■ このスレッドは過去ログ倉庫に格納されています
0314デフォルトの名無しさん
2008/07/26(土) 17:59:22みなさんありがとうございます。
HTMLの問題でもあるっぽいんですが、
HTMLソースで改行さえされなければ何とかなりそうです。
open IN, "<mydata.dat";
my @words_arr;
foreach (<IN>) {
push( @words_arr, $_ );
}
chomp @words_arr;
print "Content-type: text/html\n\n";
for ( my $i = 0 ; $i < 3 ; $i++ ) {
print $words_arr[ int( rand(30) ) ];
}
ソースはこんな感じです。。
■ このスレッドは過去ログ倉庫に格納されています