08/06/16 10:49:36
ｽﾚﾘﾝｸ(tech板:511番)
より
#!C:/perl/bin/perl
open(IN,"example.log");
while(<IN>){
unless($_ =~ /hoge/){ $line .= "$_"; }
else{ $line .= "\n"; }
}
close(IN);
open(OUT,">example.log");
print OUT $line;
close(OUT);
print"Content-type:text/html\n\n";
print "消去完了";