#99 Article 996 Posted at 1995/12/08 02:30:31 by Mick'n (MAP1406) [SAHOU.2]
Subject: Re: プログラミング作法・お題２ /995
とりあえず、perl 版。
open(FH,"LOG") || die "LOG: Error: $!\n";
while (<FH>) {
while (/(MAPLE)/) {
++$count;
$_ = $` . $';
}
}
close(FH);
printf("%d\n", $count);
診断: 長さとか速度は考慮してない。
Mick'n (MAP1406)