くだすれPerl（超初心者用）2

くだすれPerl（超初心者用）2 at PHP

288:nobodyさん
08/06/16 10:45:47
ｽﾚﾘﾝｸ(tech板:514番)
より

#!C:/perl/bin/perl

open(IN,"example.log");
while(<IN>){
$i++;
if($i == 3){ $line .= "\t\t$_"; }
else{ $line .= "$_"; }
}
close(IN);

open(OUT,">example.log");
print OUT $line;
close(OUT);

print"Content-type:text/html\n\n";
print "変更完了";

次ページ

続きを表示

1を表示