日常でも相手にされず、逃げ場のネット上でも相手にされずで発狂。毎日キチガイじみた煽りとか惨めすぎるな

質問した人はスレ閉じて忘れた頃に開くといいよ。いらつくだけ
>>793
ググったら出てきた。
ファイル中の全個数数えたいなら$sObjに1行ずつ代入してグローバル変数を+=$iCntすれば動きそう
use strict;
my $sObj ='ABCDE12ABDEABC';
my $iCnt = 0;
map {++$iCnt} ($sObj =~ /ABC/g);
print "COUNT: $iCnt\n";