#99 Article 997
Posted at 1995/12/08 02:35:06
by Mick'n (MAP1406)
[SAHOU.2]
Subject: Re: Re: プログラミング作法・お題２ /996 /995
perl 版その 2
$LOG = "LOG";
open(LOG) || die "$LOG: Error: $!\n";
$count += s/MAPLE//g while (<LOG>);
close(LOG);
printf("%d\n", $count);
診断: 少し短くしてみる。
Mick'n (MAP1406)