文字連続の検出手段

ある文字列を調べ、
その中で"同じ文字が10連続以上続いている部分"があるかどうかを検出したいのですが、
プログラム慣れしていないもので相当梃子摺っています。
どのように記述すれば良いのでしょうか。

No.1 ベストアンサー 回答者： noname#25358 回答日時： 2006/10/24 15:42

　正規表現を使います。

　「ある文字列が１０個以上並んでいればヒット」という正規表現を書き、それがヒットしたかどうかで検査を行います。
　正規表現では、() で囲まれた範囲を１つのブロックとして扱います。
　また、連続個数を指定するのは {m,n} です。

　答えはこちら。（できれば見ないで）

　if ( $data =~ /(ある文字列){10,}/ ) {
　　# １０個連続している
　} else {
　　# してない
　}

No.2 回答者： bgbg 回答日時： 2006/10/25 17:29

正規表現を使います。

・正規表現内で"()"を使うと、その部分を"\1"で参照できる
・{m,}を使うと直前の文字がm回以上繰り返す、ということを表現できる
ということを踏まえ、(.)で任意の1文字を取得し、続けて同じ文字が9回以上出現するという正規表現を書きます。

if($line =~ /(.)\1{9,}/){
　　# 10回以上連続している
}