マッチ演算子でマッチする数

**ひろゆき** · NG

マッチ演算子でマッチした数をかぞえることはできるんでしょうか？
if($match =~ /aaa/){
#ここで、マッチした数が５個以上なら、、とかそういう設定をしたいのです。
}
よろしくお願い致します。

**名無しさん** · NG

もしかして検索システム作ってるんすか？？

**ひろゆき** · NG

いや、荒し対策です。。改行が多すぎるときははねようかなと、、、

**ニポポ** · NG

########################################
$foo = "foofoofoo";
$matches = ($foo =~ s/foo/foo/g);

print "matches for \"foo\" ($matches matches)\n";

結果：
matches for "foo" (3 matches)

########################################

こんなのでいいのかい？　これじゃダメかい？
（うちのマックのMacPerl付属のShuckによると、これでいいっすよ、とのこと）

**ひろゆき** · NG

（）で囲むとその数字がはいるんですか？
知りませんでした。。ありがとうございます！！！

**tokijiro** · NG

ラクダ本によれば文字数ならtr演算子でも数えられますね。
$_ = "aaaa";
if (3<tr/a-z//) {
print "get out !";
}

文字列ならパターンマッチにgオプションを付けて
$_="foo foo foo";
while (/foo/g) {
$count++;
print "get out !" if ($count>2);

}

みたいな感じで。

**ひろゆき** · NG

whileでカウントですかぁ、、
いろんな方法があるんですね。どうもです。