【Perl 】初心者コーナーPart5

>>219
そりゃダメだろう。

chomp($lines[$hour]);
$lines[$hour] = $lines[$hour]+1 . "\n";


open(OUT,">count.dat");
flock(OUT,2);
print OUT @lines;
flock(OUT,8);
close(OUT);


じゃないのか？