我正在使用perl正则表达式匹配我所拥有的网络脚本的问题,我已经设法将行为放在一个小片段中. @H_502_7@

@H_502_7@在Debian中将这个Perl片段用于Perl 5.10.0：

@H_502_7@

#!/usr/bin/perl
use warnings;
use strict;

my $line = "Version: 0\r\n";
my($version) = $line =~ m/^Version:(\s\d+)\r\n$/;
print "1st Failed \n" if not $version; 
($version) = $line =~ m/^Version:\s(\d+)\r\n$/;
print "2nd Failed \n" if not $version; 
($version) = $line =~ m/^Version:\ (\d+)\r\n$/;
print "3th Failed \n" if not $version;

@H_502_7@有了这个输出：

@H_502_7@

2nd Failed
3th Failed

@H_502_7@显然,第一和第二之间的唯一区别是将空间移出提取的模式,理论上不应该修改正则表达式,只返回返回的部分.

@H_502_7@我不明白为什么第二和第三不完全像第一个一样.

@H_502_7@编辑：
如果你删除$version中的括号不是相同的脚本,你得不到匹配的结果,你得到op的布尔结果,得到你需要在一元中接收它的匹配结果(只有一个字符串到匹配)元组.

$line = "Version: 0\r\n";
my $version;
($version) = $line =~ m/^Version:(\s\d+)\r\n$/;
print "1st Failed \n" unless defined $version;
($version) = $line =~ m/^Version:\s(\d+)\r\n$/;
print "2nd Failed \n" unless defined $version;
($version) = $line =~ m/^Version:\ (\d+)\r\n$/;
print "3th Failed \n" unless defined $version;