Perl/正規表現のソースを表示

<noinclude>
{{Nav}}
{{Pathnav|Perl}}
----
</noinclude>
<includeonly>
= 正規表現 =
{{先頭に戻る}}
</includeonly>
{{Main|[https://perldoc.perl.org/5.36.0/perlre perlre(en)]|[https://perldoc.jp/docs/perl/5.36.0/perlre.pod perlre(ja)]}}

Perlは強力な [[正規表現]] をサポートしています。正規表現とは、大まかにいうと、検索の機能を高度化しやすくしたものです。Perl以外のJavaやJavaSciptやPHPなども正規表現をサポートしていますが、Perlは古くから正規表現を本格的にサポートしています。
また、Perlの拡張正規表現は、[[W:Perl Compatible Regular Expressions|Perl Compatible Regular Expressions]]( PCRE ) としてPerlの外でも使うことができるため、正規表現のディファクトスタンダードの１つとなっています。

== パターンマッチング ==
=== =~ ===
二項演算子 <code>=~</code> は、左辺のスカラー式を右辺のパターンマッチに拘束します。
正規表現に関する操作では、デフォルトで <code>$_</code> という文字列を検索したり変更したりします。
この演算子は、そのような操作を他の文字列に対して行うようにします。
右辺は、検索パターン (<code>//</code>)、置換 (<code>s///</code>)、または変換 (<code>tr///</code>) です。
左辺は、デフォルトの <code>$_</code> の代わりに検索、置換、または変換されるはずのものです。
スカラーコンテキストで使用する場合、返り値は通常操作の成功を表します。
リストコンテキストでの動作は、特定の演算子に依存します。
;[https://paiza.io/projects/dF7qJtYsYaCJO5AdHDXVYw?language=perl 検索]:<syntaxhighlight lang=perl>
if ("Wikibooks" =~ /book/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang="text">
Match!
</syntaxhighlight>
;書式:<syntaxhighlight lang=perl>
$検索対象の変数 =~ /検索したい文字列/
</syntaxhighlight>
:検索したい文字列を、変数が内部に含んでいるかどうかを調べる際に、 <code>=~</code> および <code>/RE/</code> を使います。上記のコードは真偽を返すので、主に条件分岐を行う際に用いられます。

=== !~ ===
<code>!~</code>は、<code>=~</code>の論理反転バージョンです。

;コード例:<syntaxhighlight lang=perl>
if ("Wikibooks" !~ /books/) {
  print "Not match.";
} else {
  print "Match!";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>
:<code>/.../</code> 内ではダブルクォーテーション (<code>"..."</code>) と同じく、変数やエスケープシーケンスが評価されます。

;コード例:<syntaxhighlight lang=perl>
$bar = "books";
"Wikibooks" =~ /$bar/ # マッチする。
</syntaxhighlight>

=== 置換 ===
<code>=~</code>演算子を使用すると、右辺に <code>s///</code> を取ることで左辺の文字列を置換することができます。
;コード例:<syntaxhighlight lang=perl>
my $string = "Hello, world!";
$string =~ s/world/Perl/; # "world"を"Perl"に置換
print $string; # 出力は "Hello, Perl!"
</syntaxhighlight>
上記の例では、<code>$string</code>内の "world" を "Perl" に置換しています。

=== 変換 ===
<code>=~</code>演算子を使用すると、右辺に <code>tr///</code> を取ることで左辺の文字列を変換することができます。
;コード例:<syntaxhighlight lang=perl>
my $string = "hello world";
$string =~ tr/a-z/A-Z/; # アルファベットを大文字に変換
print $string; # 出力は "HELLO WORLD"
</syntaxhighlight>
この例では、<code>$string</code>内のアルファベットを小文字から大文字に変換しています。

=== パターンの区切り文字 ===
<code>m</code> を前置すると正規表現を囲う記号にスラッシュ以外を用いることができます。
 <code>[ ]</code>, <code>( )</code>, <code>< ></code>, <code>{ }</code> などの括弧は開き括弧と閉じ括弧が対応するように用います。

:<syntaxhighlight lang=perl>
$foo =~ m/bar/;
$foo =~ m#bar#;
$foo =~ m@bar@;
$foo =~ m!bar!;
$foo =~ m{bar};
$foo =~ m(bar);
</syntaxhighlight>

囲み記号にシングルクォーテーションを用いると、変数やエスケープシーケンスが評価されるのを防ぐことができます。

:<syntaxhighlight lang=perl>
$foo = "books";
"Wikibooks" =~ m/$foo/; # マッチする
"Wikibooks" =~ m'$foo'; # マッチしない
</syntaxhighlight>

== 正規表現における文字クラスの構文と使用方法 ==
文字クラスは、文字の集合を表現し、その集合の中の1文字にマッチする方法です。
重要なのは、文字クラスのマッチングがソース文字列のちょうど1文字を消費するということです（ソース文字列とは、正規表現がマッチされる文字列のことです）。

=== 文字クラス ===
Perlの正規表現には、[[#ドット|ドット]]、[[#バックスラッシュ・シーケンス|バックスラッシュ・シーケンス]]、[[#角括弧で囲まれた文字クラス|角括弧で囲まれた文字クラス]]の3種類の文字クラスがあります。

しかし、「文字クラス」という用語は、しばしば角括弧で囲まれた形式だけを意味するものとして使われることがあるので、文脈によりどちらを表しているのか注意が必要です。

=== ドット ===
ドット <code>.</code> は、デフォルトでは、改行を除く全ての1文字にマッチします。

;コード例:<syntaxhighlight lang=perl>
if ("dog cat" =~ /..g/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>
: 例えば、「..g」は文字列の末尾が "g" である3文字の単語（他の2文字目は任意）にマッチします。したがって、"dog" はこの条件を満たすのでマッチします。
: しかし、ドットを1つ追加した場合、マッチしなくなります。なぜなら、"g" の前には2文字しかないためです。

;コード例:<syntaxhighlight lang=perl>
if ("dog cat" =~ /...g/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>
: dogの「g」の前には1文字以上の文字があるので、ドットが1つでもマッチします。

;コード例:<syntaxhighlight lang=perl>
if ("dog cat" =~ /.g/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

=== メタキャラクター ===
正規表現において特殊な意味を持つ以下の文字を'''メタキャラクター'''と呼びます。
 + * ? . ( ) [ ] { } | \ $ ^

これらの文字自身を表すには <code>\+</code>, <code>\*</code> のようにバックスラッシュでエスケープします。

=== アンカー ===
「アンカー」とは長さを持たない正規表現です。

代表的なものに、文字列先頭にマッチする <code>^</code>、文字列末尾にマッチする <code>$</code> があります。

;書式:<syntaxhighlight lang=perl>
"Wikibooks" =~ /^Wiki/; # マッチする
"Wikibooks" =~ /books$/; # マッチする
"Wikibooks" =~ /Wiki$/; # マッチしない
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
if ("Wikibooks" =~ /^Wiki/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

文字列「Wiki」は検索対象の先頭にあるのでマッチします。

:<syntaxhighlight lang=perl>
if ("Wikibooks" =~ /^books/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>

文字列「books」は検索対象に含まれていますが、先頭にはないのでマッチしません。

他に、単語の境界（正確には、単語の先頭あるいは末尾）にマッチする <code>\b</code>、それ以外の部分にマッチする <code>\B</code> があります。つまり、その位置に半角スペースまたは単語の先頭あるいは終わりがある場合にマッチします。


;書式:<syntaxhighlight lang=perl>
"dog cat"  =~ /a\b/; # マッチしない
"dog cat" =~ /g\b/; # マッチする
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
if ("dog cat" =~ /g\b/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

dogのgの後ろに半角スペースがあるので、結果はマッチです。


;コード例:<syntaxhighlight lang=perl>
if ("dog cat" =~ /a\b/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>
catのなかに「a」がありますが、位置が単語の境界ではないので、マッチしません。

=== バックスラッシュ・シーケンス ===
バックスラッシュ・シーケンスとは、最初の1文字がバックスラッシュである文字の並びのことです。Perlはこのような多くのシーケンスに特別な意味を持たせており、そのうちのいくつかは文字クラスになっています。つまり，その文字がシーケンスで定義された特定の文字集合に属していれば，それぞれ1つの文字にマッチします。

{| class="sortable wikitable"
|+ バックスラッシュ・シーケンス
! 記号 !! 意味
|- 
! <code>\d</code> 
| 10進数文字にマッチします。
|- 
! <code>\D</code> 
| 10進でない桁の文字にマッチします。
|- 
! <code>\w</code> 
| 単語文字にマッチします。
|- 
! <code>\W</code> 
| 単語以外の文字にマッチします。
|- 
! <code>\s</code> 
| 空白文字にマッチします。
|- 
! <code>\S</code> 
| 非空白文字にマッチします。
|- 
! <code>\h</code> 
| 横の空白文字にマッチします。
|- 
! <code>\H</code> 
| 横書き以外の文字にマッチします。
|- 
! <code>\v</code> 
| 縦書き空白文字にマッチします。
|- 
! <code>\V</code> 
| 縦書き空白でない文字にマッチします。
|- 
! <code>\N</code> 
| 改行でない文字にマッチします。 
|- 
! <code>\pP</code>,<code>\p{Prop}</code> 
|  指定された Unicode プロパティを持つ文字にマッチします。
|- 
! <code>\PP</code>,<code>P{Ptop}</code> 
|  指定された Unicode プロパティを持たない文字にマッチします。
|}

=== 角括弧で囲まれた文字クラス ===
<code>[]</code> の内側をブラケットで囲んだ部分は「角括弧で囲まれた文字クラス」です。

;書式:<syntaxhighlight lang=perl>
"Wikibooks" =~ /[abc]/   # a と c は含まれないが、b は含まれるのでマッチする
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
if ("Wikibooks" =~ /[abc]/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

* 文字クラスのハイフン
<code>[]</code> の中でハイフン <code>-</code> を使うことで、文字の範囲を指定することができます。

たとえば、<nowiki>/[a-z]/</nowiki> と書けば、英語の小文字にマッチします。(なお Perl の正規表現では、大文字と小文字を区別します。)

あるいは <nowiki>/[0-9]/</nowiki> と書けば、十進数の数字にマッチします。


;書式:<syntaxhighlight lang=perl>
$foo =~ /[abc]/;
$foo =~ /[a-c]/;   # 上の文と等価
$foo =~ /[01234]/;
$foo =~ /[0-4]/;   # 上の文と等価
</syntaxhighlight>

ハイフンの前の文字は、後ろの文字よりも文字コードにおいて前でなければなりません。

;書式:<syntaxhighlight lang=perl>
$foo =~ /[b-a]/; # エラー
$foo =~ /[5-3]/; # エラー
$foo =~ /[a-3]/; # エラー
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
if ("Wikibooks" =~ /[a-c]/) {
  print "Match!ggg";
} else {
  print "Not matchggg.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

;;エスケープ
ハイフン自体を文字クラスに含めるには、文字クラスの一番前か一番後ろに記述するか、バックスラッシュでエスケープします。(なお、Windows環境では表示で、バックスラッシュの代わりに、通貨記号の円マークが表示されるかもしれません。)

;書式:<syntaxhighlight lang=perl>
$foo =~ /[-ab]/;  # ハイフンまたは a か b にマッチする
$foo =~ /[ab-]/;  # 上の文と等価
$foo =~ /[a\-b]/; # 上の文と等価
</syntaxhighlight>

開きブラケット ({{tt|[}}) に {{tt|^}} を後置すると、'''否定キャラクタクラス'''を表現することができます。

;否定キャラクタクラス:<syntaxhighlight lang=perl>
$foo =~ /[^0-9]/; # 数字以外にマッチする
</syntaxhighlight>

=== グループ化 ===
丸括弧で括った部分は'''グループ化'''されます。

グループ化した部分は後から参照することができます。これを'''後方参照'''といいます。
同じ正規表現内で後方参照を行うには、{{tt|\1}}, {{tt|\2}}... を用います。

;後方参照:<syntaxhighlight lang=perl>
$foo =~ /(abc)\1/; # abc が2回連続する文字列にマッチする
</syntaxhighlight>

また、正規表現外で後方参照を行うには、スカラー変数 {{tt|$1}}, {{tt|$2}}... を用います。

;$1をつかった一致部分参照:<syntaxhighlight lang=perl>
"Wikibooks" =~ /(wiki)/i;
print $1; # 'Wiki' と出力される。
</syntaxhighlight>

=== 選択 ===
縦線を用いると正規表現を選択することができます。

;パターンの選択:<syntaxhighlight lang=perl>
$foo =~ /abc|def/; # abc あるいは def にマッチする
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
$foo = "defabc" ;
if ($foo =~ /abc|def/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

下記の書式例では、{{tt|^}} や {{tt|$}} が {{tt|{{!}}}} よりも優先順位が高いため、abc で始まる文字列か def で終わる文字列にマッチします。

;コード例:<syntaxhighlight lang=perl>
$foo =~ /^abc|def$/;
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
$foo = "defabc" ;
if ($foo =~ /^abc|def$/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>


;コード例:<syntaxhighlight lang=perl>
$foo = "abcdef" ;
if ($foo =~ /^abc|def$/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>

先頭と末尾の両方に接する「"abc"」か 「"def"」だけにマッチさせるには以下のようにします。

:<syntaxhighlight lang=perl>
# カッコで両項ともククる方式
$foo =~ /^(abc|def)$/;

# あるいは各項に展開する方式
$foo =~ /^abc$|^def$/;
</syntaxhighlight>


;コード例:<syntaxhighlight lang=perl>
$foo = "defabc" ;
if ($foo =~ /^abc$|^def$/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>

;コード例:<syntaxhighlight lang=perl>
$foo = "def" ;
if ($foo =~ /^abc$|^def$/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Match!
</syntaxhighlight>


;コード例:<syntaxhighlight lang=perl>
$foo = "def555" ;
if ($foo =~ /^abc$|^def$/) {
  print "Match!";
} else {
  print "Not match.";
}
</syntaxhighlight>
;実行結果:<syntaxhighlight lang=text>
Not Match.
</syntaxhighlight>

=== 置き換え ===
s///演算子を用いると、文字列の置換を行うことができます。

:<syntaxhighlight lang=perl>
$str = "Wikibooks";
$str =~ s/books/pedia/; # $str は "Wikipedia" になる
</syntaxhighlight>

m//と同じく、スラッシュ以外の記号を用いることもできます。

:<syntaxhighlight lang=perl>
<pre><nowiki>$foo =~ s/foo/bar/;
$foo =~ s#foo#bar#;
$foo =~ s@foo@bar@;
$foo =~ s!foo!bar!;
$foo =~ s{foo}{bar};
$foo =~ s(foo)(bar);</nowiki></pre>
</syntaxhighlight>

=== 修飾子 ===
正規表現のメタキャラクター、あるいはパターンマッチそのものの振る舞いを変えるために、修飾子を指定することができます。たとえば、正規表現がアルファベットの大文字小文字を区別せずにマッチするようにするためには、

:<syntaxhighlight lang=perl>
m/^perl$/i; # perlやPerl、PERL、PeRl、pErLなどにマッチする。
</syntaxhighlight>

のように、最後のスラッシュ（あるいは何らかの記号）の後に、i修飾子を付加します。

{| class="wikitable"
|+ Perlの正規表現の修飾子
! i
| 大文字小文字の同一視 (case-'''i'''nsensitive)
|-
! s
| 「.」が改行にもマッチするようにする ('''s'''ingle line)
|-
! m
| 複数行として扱う ('''m'''ulti-line)
|-
! x
| 拡張正規表現を使う ('''ex'''tended)
|-
! e
| Perlのコードとして評価する ('''e'''valuation)
|-
! ee
| Perlのコードとして2回評価する ('''e'''valuation and '''e'''valuation)
|-
! g
| 連続して何回もマッチ ('''g'''lobal)
|-
! o
| 一度だけコンパイルする ('''o'''nly '''o'''nce)
|-
|}

=== 拡張正規表現 ===
x修飾子を付けると正規表現内の空白や改行が無視され、「#」以降はコメントとして扱われます。

:<syntaxhighlight lang=perl>
# 1と出力
print 1 if "Apple" =~ /
A
p
p
l
e
/x;
</syntaxhighlight>

=== アトムとアサーション ===
「ABC」や「[0-9]」、「.*?」のように、何かにマッチする正規表現の構文を'''アトム'''といいます。最後の「.*?」は、アトム「.」に量指定子「*」、「?」が付いたもので、特に'''量指定子付きアトム'''といいます。

「^」や「$」、「|」のように、何かにマッチするわけではない正規表現の構文を'''アサーション'''といいます。

正規表現の構文は基本的にアトムとアサーションのどちらかに分けられます。ただし、\Qや\E、\uや\Uのような特殊なシーケンスはアトムでもアサーションでもありません。これらは構文のふるまいを変えるものです。

== 拡張構文 ==

=== コメント ===
:<syntaxhighlight lang=perl>
/(?#ここはコメント)/
</syntaxhighlight>

=== クラスタ化専用カッコ ===
(?:...)はクラスタ化（正規表現をまとめること）のみに使われるカッコです。キャプチャを行わないため、マッチした部分を正規表現の中で\1、\2のように参照したり、後から$1、$2のような変数で参照したりすることができません。キャプチャを行う必要がない場合は、このカッコを使うことで効率化を図ることができます。

:<syntaxhighlight lang=perl>
"Apple" =~ /^(?:Apple|Banana|Cherry)$/; # AppleかBananaかCherryにマッチ
</syntaxhighlight>

これにはimsx修飾子を付けることもできます。i修飾子を付けるには、i-msx（iを指定しmsxを指定しない）とします。

:<syntaxhighlight lang=perl>
"aPpLe" =~ /^(?i-msx:Apple|Banana|Cherry)$/;
</syntaxhighlight>

単に修飾子を有効または無効にするためだけにこのカッコを使うこともできます。

:<syntaxhighlight lang=perl>
/A(?i-msx)B/; # Aは大文字小文字を区別するが、Bは区別しない
</syntaxhighlight>

=== ルックアラウンドアサーション ===
'''ルックアラウンドアサーション'''とは、直後または直前にパターンが出現すること、あるいは出現しないことを確認し、確認するだけで何にもマッチしないアサーションです。

* 肯定先読み
直後に''PATTERN''が出現することを確認します。
:<syntaxhighlight lang=perl>
/(?=PATTERN)/
</syntaxhighlight>

* 否定先読み
直後に''PATTERN''が出現しないことを確認します。
:<syntaxhighlight lang=perl>
/(?!PATTERN)/
</syntaxhighlight>
次の例では、「&amp;amp;」以外の「&amp;」をすべて「&amp;amp;」に置換します。
:<syntaxhighlight lang=perl>
$str =~ s/&(?!amp;)/&amp;/g;
</syntaxhighlight>

* 肯定後読み
直前に''PATTERN''が出現することを確認します。
:<syntaxhighlight lang=perl>
/(?<=PATTERN)/
</syntaxhighlight>

* 否定後読み
直前に''PATTERN''が出現しないことを確認します。
:<syntaxhighlight lang=perl>
/(?<!PATTERN)/
</syntaxhighlight>

=== 非バックトラックサブパターン ===
バックトラックしない''PATTREN''にのみマッチします。

:<syntaxhighlight lang=perl>
(?>PATTERN)
</syntaxhighlight>

=== コードサブパターン ===
(?{ ''CODE'' })という形で、正規表現の中にPerlのコードを埋め込むことができます。

:<syntaxhighlight lang=perl>
/(?{ print "Hello, world!\n" })/; # Hello, world!と表示
</syntaxhighlight>

(??{ ''CODE'' })という形では、''CODE''を評価した結果得られた正規表現にマッチします。

:<syntaxhighlight lang=perl>
"ABC" =~ /^(??{ "A"."B"."C" })$/; # ABCにマッチする
</syntaxhighlight>

=== 条件付き展開 ===
Perlの条件演算子?:のように、条件が真か偽かでマッチさせるパターンを変えることができます。

:<syntaxhighlight lang=perl>
/(?(COND)TRUE|FALSE)/
</syntaxhighlight>

または

:<syntaxhighlight lang=perl>
/(?(COND)TRUE)/
</syntaxhighlight>

''COND''が真の場合は''TRUE''、偽の場合は''FALSE''のパターンにマッチします。


===変換===

{{Nav}}
<noinclude>
{{DEFAULTSORT:Perl せいきひようけん}}
[[Category:Perl|せいきひようけん]]
[[カテゴリ:正規表現]]
{{stub}}
</noinclude>