【Perl】初心者コーナー Part14
レス数が950を超えています。1000を超えると書き込みができなくなります。
0970nobodyさん
02/08/08 06:23ID:???こういうこと？
対象に上書きするので注意。
#! /usr/bin/perl
$perlfile = 'ファイル名';
open(FILE,"+<$perlfile");
while($tmp = <FILE>){
$tmp =~ s/\#+[^;]*\n/\n/;
$dat .= "$tmp";
}
seek(FILE,0,0);
print FILE "$dat";
truncate(FILE, tell(FILE));
close(FILE);
print "Content-type: text/plain\n\n終了\n";
レス数が950を超えています。1000を超えると書き込みができなくなります。