Perl Regular Expression не работает

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