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。