regex - "[]" を使用した Perl 正規表現

Question

私のデータは次のようになります。

NC_004415 NC_010199 ([T(trnH ,trnS1 trnL1 ,)])
NC_006131 NC_010199 ([T(trnH ,trnS1 trnL1 ,)])
NC_006355 NC_007231 ([T(trnM ,trnQ ,)])

間のすべてをキャプチャしたい[]:

while( my $line = <crex> )

 {  $t=$line=~m/(\[.*\])/;

    print $t;
 }

の出力は$tです1。なぜ機能しないのですか？

score 3 · Accepted Answer

$1キャプチャグループを使用しているため、一致が成功した後に使用できます。

if($line =~ m/(\[.*\])/) {
    print $1;
}

score 3 · Accepted Answer

$line =~ m/(\[.*\])/リストコンテキストで一致のリストを返しますが、スカラーコンテキストで使用しています。スカラーコンテキストでは、match 演算子は、一致が成功したかどうかを示すブール値を返します。したがって、を取得し1ます。使用できます

my ($t) = $line =~ m/(\[.*\])/;

を使用してリストコンテキストを作成するか、$1代わりにを使用できます$t。

score 2 · Accepted Answer

を括弧で囲みます$t:

($t) = $line =~m/(\[.*\])/;

m//スカラーコンテキストで一致演算子 () を使用し、結果をに格納していると思います$t。一致が成功したため、m//1 を返します。perldoc perlopを参照してください。

3 に答える 3