我正在使用perl正则表达式匹配我所拥有的网络脚本的问题,我已经设法将行为放在一个小片段中.
在Debian中将这个Perl片段用于Perl 5.10.0：
#!/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;
有了这个输出：
2nd Failed 3th Failed
显然,第一和第二之间的唯一区别是将空间移出提取的模式,理论上不应该修改正则表达式,只返回返回的部分.
我不明白为什么第二和第三不完全像第一个一样.
编辑：
如果你删除$version中的括号不是相同的脚本,你得不到匹配的结果,你得到op的布尔结果,得到你需要在一元中接收它的匹配结果(只有一个字符串到匹配)元组.
解决方法
问题是您正在测试布尔值true,因为在后两种情况下,您提取的字符串值为false(字符串“0”).试试这个：
$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;
