我正在设置这个示例Perl代码片段,以便在一个日期中验证几个月:
我想要接受的一些场景是:
MM M
#!/usr/bin/perl
use strict;
use warnings;
my $pattern;
my $month = "(0[1-9]|1[012])";
my $day = "(0[1-9]|[12]\d|3[01])";
system("cls");
do {
print "Enter in a month: ";
chomp($pattern = <STDIN>);
# We only want to print if the pattern matches
print "Pattern matches\n" if ($pattern =~ /$month/);
} while ($pattern ne "Q");
当我运行它时,它正确地过滤了01-12,但当我将正则表达式更改为:
$month = "(0?[1-9]|1[012])";
然后正则表达式允许13、14等...怎么回事?
发布于 2010-01-26 15:13:29
如果您真的喜欢使用正则表达式,则需要将^和$放入,如
"^(0?[1-9]|1[012])$"
它不会匹配13,14....
发布于 2010-01-26 15:07:25
您不应该使用正则表达式来进行数值范围验证。您需要的正则表达式为:
/^(\d+)$/
然后,
if ($1 >= 1 && $1 <= 12) {
# valid month
}
这比任何用于验证数值范围的正则表达式都更容易阅读。
另外,Perl通过在目标中搜索匹配的表达式来计算正则表达式。所以:
/(0[1-9]|1[012])/
搜索后跟1到9的0,或后跟0、1或2的1。这将匹配"202“等许多其他数字。另一方面:
/(0?[1-9]|1[012])/
搜索可选的0 1到9,或者1后跟0、1或2。因此,"13“在这里匹配,因为它包含1,与正则表达式的前半部分匹配。要使您的正则表达式按您期望的方式工作,
/^(0?[1-9]|1[012])$/
^
和$
分别将搜索定位到字符串的开头和结尾。
发布于 2010-01-26 15:14:14
给你提示-月份数字"120“也与你的版本匹配:-)
更改:
my $month = "(0[1-9]|1[012])";
至
my $month = /^(0[1-9]|1[012])$/;
然后玩得更多
https://stackoverflow.com/questions/2137929
复制相似问题