Perlについての質問箱 35箱目

Perlについての質問箱 35箱目 at TECH

513:デフォルトの名無しさん
08/06/16 09:39:22
>>511

#!C:/perl/bin/perl

open(IN,"example.log");
while(<IN>){
if($_ =~ /hoge/){ $line .= "\n"; }
else{ $line .= "$_\n"; }
}
close(IN);

open(OUT,">exmple.cgi");
print OUT $line;
close(OUT);

print"Content-type:text/html\n\n";

print "消去完了";

みたいな感じですか？

Perlコーディング初心者質問スレ Part 57
ｽﾚﾘﾝｸ(php板)l50

次ページ

続きを表示

1を表示