サクセスってどうよ？in速報3 ◆掲示板削除合戦編◆

($dir) = @ARGV;

opendir (DIR, $dir) or die;
foreach ($file = readdir(DIR))
{
if (open(FILE, $file))
{
@data = <FILE>;
push @records, @data;
close(FILE);
}
}
closedir DIR;

print ("総件数: " . $#records+1 . "件\n");

もう出かけなきゃ、誰か続き作れ（藁