正規表現を教えて下さい

Question

「２つ目のドット"."までに、１つのドットと８文字以上の数字を含む」という正規表現で悩んでいます。

正規表現が得意な方、ヒントを頂ければ助かります。

moon_piyo · Accepted Answer

プログラムがつかえない場所だとすると...
こんなのはどうでしょう

わかりやすいように正規表現に改行をいれて xオプションをつけていますけど、xオプションが許されないようでしたら改行を削って長い一行にしてください

/(
[^\.\d]*(\d[^\.\d]*){0,}\.[^\.\d]*(\d[^\.\d]*){8,}|
[^\.\d]*(\d[^\.\d]*){1,}\.[^\.\d]*(\d[^\.\d]*){7,}|
[^\.\d]*(\d[^\.\d]*){2,}\.[^\.\d]*(\d[^\.\d]*){6,}|
[^\.\d]*(\d[^\.\d]*){3,}\.[^\.\d]*(\d[^\.\d]*){5,}|
[^\.\d]*(\d[^\.\d]*){4,}\.[^\.\d]*(\d[^\.\d]*){4,}|
[^\.\d]*(\d[^\.\d]*){5,}\.[^\.\d]*(\d[^\.\d]*){3,}|
[^\.\d]*(\d[^\.\d]*){6,}\.[^\.\d]*(\d[^\.\d]*){2,}|
[^\.\d]*(\d[^\.\d]*){7,}\.[^\.\d]*(\d[^\.\d]*){1,}|
[^\.\d]*(\d[^\.\d]*){8,}\.[^\.\d]*(\d[^\.\d]*){0,}
)\./x;

"0コ以上の数字 . 8コ以上の数字 ." または
"1コ以上の数字 . 7コ以上の数字 ." または
....
"8コ以上の数字 . 0コ以上の数字 ."

という作戦でやってみました

moon_piyo · Answer

(?{code})
(?(condition)yes|no)
などの正規表現が使えるPerlでしたら

/(\d(?{local $n_d=$n_d+1})|\.(?{local $n_p=$n_p+1})|[^\d\.])*\.(?(?{!($n_d >= 8 && $n_p == 1)})(?!))/;

というのはどですか

\dにマッチするごとに $n_d++
\.にマッチするごとに $n_p++
\.にマッチしたときに $n_d >= 8 && $n_p == 1 の条件を満たさなければ次を探す

という動きになります

moon_night · Answer

正規表現一回だけではできそうもなかったので、
違う手で処理してみました。
参項程度に。

@aaa = (
'111.abc222.何か文字列',
'abc12.111-222ddd.何か文字列',
'..',
'.12345678.',
'12345678.aaa.task',
'5231.asd123.123da543123455',
'ab123-45.6-7891.aa',
'asd123.1234asd567',
'88ii88.88ii88ii88',
);


foreach (@aaa) {
@words = split(//);
$end = 0;
$kaz = 0;
foreach $words (@words) {
if ($words eq '.') { $end++; }
elsif ($words =~ /\d/) { $kaz++; }
if ($end >= 2) { last; }
}

if ($end == 2 and $kaz >= 8) {
print "HIT!
";
} else {
print "NG
";
}
}

tatsu99 · Answer

先ほどは失礼しました。
要件は
１．２つ以上のピリオドがあること
２．かつ２つ目のピリオドの前に８つ以上の数字（非連続可）があること
ですね。
２回の検索をかければできますが、１回では無理なようです。
以下、２回で行う方法。
$strが検索対象の文字列
    #最短一致でピリオドが２つ以上のケースを抽出し
    if ( $str =~ /(.*?)\.(.*?)\./ ){
    #更に、２番目のピリオドまでに８個以上の数字があること
        if ( ($1.$2) =~ /(\d.*){8,}/ ){
            # マッチしたケース
            print "match
";
        }
    }

tatsu99 · Answer

＞２つ目のピリオドまでに、数字が８文字どこかに入っ＞てるのも条件なのです・・
質問
１）ピリオドとピリオドの間に、数字は何文字以上あれば、よいのですか？
　１．８文字ちょうど
　２．１～８文字
　３．８文字以上なら何文字でも良い
２）数字と数字の間は、ピリオド以外の文字があっても
よいのですね。

３）以下の形はＯＫですかＮＧですか
aa.ab1k1k1k1k1k1k1k1.+++
aa.1.yyy
aa.1111111hh111111+1hh111.zzz

tatsu99 · Answer

要は、ピリオド＋ピリオド以外の文字（０文字以上）＋ピリオド　が検索できればよいのですね。

$str =~ /\.[^.]*\./　になります。
以下のスクリプトで確認してみて下さい。
--------------------------------
$a = "mmm.123-46.lll";
$b = "..";
$c = "jj.llll";

&sub1 ($a);
&sub1 ($b);
&sub1 ($c);
sub sub1 
{
$str = shift @_;
if ( $str =~ /\.[^.]*\./ ){
print $str ," is match
";
}else{
print $str ," is not match
";
}
}

moon_night · Answer

別に正規表現は得意ではありませんが。

$word =~ /\.\d{8,}\./ig;

こんなかんじなのでは。
ただし、これでは数字以外の文字が挟まっていた場合にはHITしませんが。

数字以外が挟まっている場合がある場合は
$word =~ /\.\D*\d+\D*\d+\D*\d+\D*\d+\D*\d+\D*\d+\D*\d+\D*\d+\D*\./ig;
こんな感じでいけるのかなぁ？
（試してないのでビミョウ）
もっとうまい手があると思います。

正規表現を教えて下さい

プログラムがつかえない場所だとすると...

(?{code})

正規表現一回だけではできそうもなかったので、

先ほどは失礼しました。

＞２つ目のピリオドまでに、数字が８文字どこかに入っ＞てるのも条件なのです・・

要は、ピリオド＋ピリオド以外の文字（０文字以上）＋ピリオド が検索できればよいのですね。

別に正規表現は得意ではありませんが。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

要は、ピリオド＋ピリオド以外の文字（０文字以上）＋ピリオド　が検索できればよいのですね。