相关疑难解决方法(0)

我正在设置此示例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等...给出了什么？