1001コメント348KB

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

レス数が950を超えています。1000を超えると書き込みができなくなります。

0968デフォルトの名無しさん

2009/05/27(水) 21:07:38

while (<IN>) {
$_ =~ s/^\s+//;
my @data = split /\s+/, $_;
print "$data[0],$data[1],$data[2]\n";
}

レス数が950を超えています。1000を超えると書き込みができなくなります。