#99 Article 1020 Posted at 1995/12/13 00:18:01 by ＰＡＺ（鬼） (MAP2562) [SAHOU.2]
Subject: Re: プログラミング作法・お題２ /995
perl に挑戦！（無理）
#include<stdio.h>
#include<string.h>
main(){char*s,b[256];int c=0;FILE*fp=fopen("LOG","r");
while(fgets(s=b,256,fp))while(s=strstr(s,"MAPLE")){c++;s++;}
printf("Num of MAPLE= %d\n",c);}
LSI C-86 Ver.3.30 試食版で動きました。
エラーは無視します。短さだけがとりえ（笑）
ＰＡＺ