Perlマッチ演算子から変数にマッチを抽出するにはどうすればよいですか？

Question

私は一致演算子を持っていますが、$1、$2などの代わりに、カッコで取り込まれた文字列の部分を変数に保存するにはどうすればよいですか？

... = m/stuff (.*) stuff/; 

左側に何がありますか？

Answer 1

トリックは、リストの割り当てを使用して、リストコンテキストでM //仕事をすることです：

($interesting) = $string =~ m/(interesting)/g; 

このきちんとより多くのものをつかむために拡張することができ、例えば：

($interesting, $alsogood) = $string =~ m/(interesting) boring (alsogood)/g; 

Answer 2

通常あなたがまた、入力文字列が正規表現と一致するかどうかをテストする必要があります。このようにして、エラーのケースも処理できます。

興味深いものを抽出するには、抽出したいビットを固定する方法が必要です。

だから、あなたの例で、これは最初の入力文字列は、私たちの表現に一致していることを確認し、その後、2つの「退屈」ビット間のビットを抽出：

$input = "boring interesting boring"; 
if($input =~ m/boring (.*) boring/) { 
    print "The interesting bit is $1\n"; 
} 
else { 
    print "Input not correctly formatted\n"; 
} 

Answer 3

は、ブラケットを使用して作成する(...)を構築しますキャプチャバッファ。次に、特別な変数$1、$2などを使用して、取得した文字列にアクセスします。

if (m/(interesting)/) { 
    my $captured = $1; 
} 

Answer 4

$ & - 最後 成功したパターンマッチ（現在のBLOCKで囲まれたBLOCKや のeval（）の中に隠さ のマッチは勘定に入れない）でマッチした文字列を。

#! /usr/bin/perl 

use strict; 
use warnings; 

my $interesting; 
my $string = "boring interesting boring"; 
$interesting = $& if $string =~ /interesting/; 

Answer 5

名前付きキャプチャバッファを使用することができます。

if (/ (?<key> .+?) \s* : \s* (?<value> .+) /x) { 
    $hash{$+{key}} = $+{value}; 
} 

Answer 6

@stringsは左に行くと、結果が含まれます、そして、あなたの入力文字列$input_stringを行きます。すべての部分文字列を一致させるにはフラグgを忘れないでください。

my @strings=$input_string=~m/stuff (.*) stuff/g;