Perl 正規表現について

Question

下記の正規表現にて条件分岐を実装する場合、$defendantに.(ドット)が連続して2文字以上存在した場合、処理1は行われますでしょうか。

if( !($defendant =~ /^([-\w!#$%&'+/=?^{|}~]([-.\w!#$%&\'*+\/=?^{|}][-\w!#$%&'+/=?^`{|}])@\w+([-.][-\w+]).\w+([-.]\w+)\s*[,;]?\b)*$/) ){
処理1

}

すみませんがご教授いただけますでしょうか。

Comments

[coco_bauer]

正規表現で"."は、「改行以外の任意の一文字と合致する」メタ文字です。正規表現でドットと合致するのはエスケープ文字(\)を先に置いた"\."です。質問の中の式には"\."が含まれていませんから、ドットの存在に関して意味のある動作をすることはありません。

[maisumakun]

coco_bauer さん＞角カッコの中では.のエスケープは不要ですので、その場合はどうなるのか確認が必要です。

[AnMoreNight]

期待しているマッチ文字列例があれば、追いかけやすいと思いますよ

Answer 1

http://www.rexv.org/
この手の正規表現チェッカを使って是非ご自分の目で確かめてみてください。

Answer 2

期待している入力文字列が不明ですが、以下の正規表現テストサイトで試した結果、「@」より前に「..」がある場合はマッチしますが、「@」より後ろに「..」があるとマッチしませんでした。

Rubular: a Ruby regular expression editor and tester

他にも正規表現チェックできるサイトがあるので、お試しあれ。正規表現の要素毎にグラフィカルに動作を表示するサイトもあります。

ブラウザから手軽にチェックできる正規表現テストツールまとめ

なお、Perl特有の表現を使用している場合はRuby用チェッカーやPerlを選択できるチェッカーでないと正しくチェックできませんのでご注意を。