Perl的正則表達式不工作

Question

你能告訴我，爲什麼這樣的：

($revID, $who, $date, $nlines) =~ m/(\w+) \| (\w+) \| ([0-9-]*) .*\| ([0-9]*) line/; 

與此不匹配：

r36043 | cmiuch | 2014-10-01 10:51:01 -0400（Wed，01 Oct 2014）| 1行

revID，誰，日期全部空出來。

Answer 1

您需要對存儲實際輸入的變量應用正則表達式。即，$var =~ m//;

my $var = "r36043 | cmiuch | 2014-10-01 10:51:01 -0400 (Wed, 01 Oct 2014) | 1 line"; 
my ($revID, $who, $date, $nlines) = $var =~ m/(\w+) \| (\w+) \| ([0-9-]+) .*\| ([0-9]+) line/; 
print $revID."\n".$who."\n".$date."\n".$nlines."\n"; 

輸出：

r36043 
cmiuch 
2014-10-01 
1