为什么我的正则表达式匹配版本号不起作用？

发布时间：2020-12-14 05:39:05 所属栏目：百科来源：网络整理

导读：我正在使用perl正则表达式匹配我所拥有的网络脚本的问题,我已经设法将行为放在一个小片段中. 在Debian中将这个Perl片段用于Perl 5.10.0： #!/usr/bin/perluse warnings;use strict;my $line = "Version: 0rn";my($version) = $line =~ m/^Version:(sd+)

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

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

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

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

有了这个输出：

2nd failed
3th failed

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

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

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

解决方法

问题是您正在测试布尔值true,因为在后两种情况下,您提取的字符串值为false(字符串“0”).试试这个：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!