天才WEBプログラマの方々に一生のお願い…

[0004 nobodyさん 04/05/03 17:16 ID:D9AfyxcF]

#!/usr/local/bin/perl

open(FH,"onegai.txt");
@log = <FH>;
close(FH);

open(FH,">test.txt");
foreach $_ (@log) {
print FH $_,"<BR>";
}
close(FH);

print <<"EOF";
Content-type: text/html

owari
EOF