Perl正規表現で特殊文字をエスケープする

Question

私はPerlで正規表現にマッチさせようとしています。 Perlの正規表現に一致するようにしようとしたとき

my $source = "Hello_[version]; Goodbye_[version]"; 
my $pattern = "Hello_[version]"; 
if ($source =~ m/$pattern/) { 
    print "Match found!" 
} 

問題は、ブラケットは文字クラスを示していることで発生する（またはので、私は読んで）、そしてマッチが失敗して終わる：私のコードは次のようになります。私は\[または\]で角括弧を逃れることができますが、それは文字列を通って角括弧を検索するためには別のコードブロックが必要になることを知っています。角括弧を個別にエスケープせずに自動的に無視する方法はありますか？

クイックメモ：バックスラッシュを追加することはできません。これは単なる例です。私の実際のコードでは、$sourceと$patternはどちらもPerlコードの外側（URIEncodedまたはファイルから）から来ています。

Answer 1

ジョブに間違ったツールを使用しています。

パターンがありません。 $ patternに正規表現 がありません！

リテラル文字列があります。

インデックス（）あなたは、次のコマンドを使用して、式の中での特殊文字のセットを逃れることができます...リテラル文字列を操作するための

my $source = "Hello_[version]; Goodbye_[version]"; 
my $pattern = "Hello_[version]"; 
if (index($source, $pattern) != -1) { 
    print "Match found!"; 
} 

Answer 2

使用quotemeta()：\Eが見つかったり、パターンの終わりされるまで

my $source = "Hello_[version]; Goodbye_[version]"; 
my $pattern = quotemeta("Hello_[version]"); 
if ($source =~ m/$pattern/) { 
    print "Match found!" 
} 

Answer 3

\Qはメタキャラクタを無効にします。そのリテラル知られており、実際の正規表現にダンプされるように使用されていない限り$pattern敗北正規表現の目的を引用

my $source = "Hello_[version]; Goodbye_[version]"; 
my $pattern = "Hello_[version]"; 
if ($source =~ m/\Q$pattern/) { 
    print "Match found!" 
} 

http://www.anaesthetist.com/mnm/perl/Findex.htm

Answer 4

。

編集
そうでない場合は、単にストリングの位置を見つけるためにindex()を使用しています。その情報を使用して、必要に応じて周囲のデータを抽出するのにsubstr()を使用してください。

Answer 5

です。

expression1 = '$％（）'のような特殊文字を含むテキスト。

式1 =〜s/[\？* + \^\ $ [] {（} {} | |]/"\ $ &" ！これは、すべての特殊文字に

印刷「式1' エスケープします

;！\ $ \％などの特殊文字（）