Perlの正規表現で条件分岐する方法

Perlの正規表現で条件分岐する方法

Posted at September 19,2014 12:55 AM
Tag:[Perl]

Perlの正規表現で条件分岐する方法を紹介します。

1.Perlの正規表現で条件分岐する

たとえば文字列の先頭に「"」が存在する場合、文字列の末尾に「"」が必須であるパターンと、「"」がないパターン、

"foo"

foo

の両方にマッチさせたい場合の正規表現は次のようになります。

^(")?(?(1)\w+"|\w+)$

サンプルコード

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $str = '"aaa"';
if ( $str =~ /^(")?(?(1)\w+"|\w+)$/ ) {
    print "match";
} else {
    print "not match";
}

解説です。まず、

^(")?

で、先頭にダブルクォーテーション「"」が1文字(または0文字)存在することを判定します。

次に、

(?(1)

で、グループ(ここでは1)にマッチすれば真となります。つまりダブルクォーテーションが存在すれば真となります。

\w+"|\w+

そして、さきほどの結果が真であれば「\w+"」を実行し、偽であれば「\w+」を実行します。

認識誤りがあったらどこかでつぶやいてください。

下記の例では文字の並びをチェックします。

my $str = 'ATGAAG'; # GATGGC/TAGBBC
if ( $str =~ /[ATGC]+(?(?<=AA)G|C)$/ ) {

$strに設定する文字が「ATGAAG」であれば

(?<=AA)

にマッチし、「GATGGC」であれば戻り読み「(?<=AA)」にはマッチしませんが正規表現にはマッチします。

「TAGBBC」の場合は正規表現にマッチしません。

なお上記の戻り読み、あるいは先読み・コード表明の場合、次のように条件部分をカッコで囲む必要はないようです。

(?((?<=AA))G|C)

2.参考サイト

参考サイトは下記です。ありがとうございました。

関連記事
zenback
人気エントリー
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)