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！为什么它不工作

Answer 1

，你可以只使用$1匹配成功后：

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

Answer 2

使用括号周围$t：

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

参考perldoc perlretut (Extracting matches)

我相信你正在使用的匹配运算符（m//）在标量上下文和结果存储在$t。由于比赛是由于您使用的捕获组成功m//返回1.参考perldoc perlop

Answer 3

$line =~ m/(\[.*\])/返回匹配的列表列表上下文，但是你在标量上下文中使用它。在标量上下文中，匹配运算符返回一个布尔值，指示匹配是否成功。因此你得到1。您可以使用

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

创建一个列表环境，也可以使用$1而不是使用$t。