Perl 中的 4 位数字验证

Question

应该小于第二个传递的参数，并且两个参数都应该只是数字，而且它们应该恰好是 4。

当我将命令行参数传递给 perl 程序时，我进行了验证检查。我通过了两年，第一个传递的参数 >#Sunny>perl check.pl 2007 2008 这很好

#Sunny>perl check.pl 2008 2007 这很糟糕

#Sunny>perl check.pl 200 2007 这很糟糕

我已经为此编写了代码，但无法弄清楚为什么它不起作用。

#!usr/bin/perl
#check.pl

if ($#ARGV < 0) { }
else
{
  $fiscyear1 = $ARGV[0];
  $fiscyear2 = $ARGV[1];
}

if (($fiscyear1 !~ m/\d{4}/) and ($fiscyear2 !~ m/\d{4}/) and ($fiscyear1 < $fiscyear2))
{ print "Bad parameters\n"; }
else
{ print "good parameters\n"; }

Answer 1

这听起来像是一个过度思考的糟糕情况......

您想要验证参数是否为两年，采用 YYYY 形式，并且第二年在第一年之后。

嗯，9999 可以通过任何数字检查，但它几乎不是一个有效的年份。与 0101 或 3021 等相同。

您想要的是设置给定范围，并确保参数是数字。

use strict;
use warnings;

my $yr1 = shift;
my $yr2 = shift || usage();

usage() unless $yr1 =~ /^\d+$/;
usage() unless $yr2 =~ /^\d+$/;

my $min_year = 1900;
my $max_year = 2200;

if ( ($yr1 < $min_year) or ($yr1 > $max_year) ) {
    die "Invalid year: $yr1";
}
if ( ($yr2 < $min_year) or ($yr2 > $max_year) ) {
    die "Invalid year: $yr2";
}
if ( $yr1 >= $yr2 ) {
    die "Invalid sequence: $yr2 is not greater than $yr1";
}

sub usage {
    die "Usage script.pl <year1> <year2>";
}

Answer 2

怎么样：

if (($fiscyear1 !~ m/^\d{4}$/) or ($fiscyear2 !~ m/^\d{4}$/) or ($fiscyear1 > $fiscyear2))
   { print "Bad parameters\n"; }

我将 or 中的 and 以及最终的 < 更改为 > （因为你希望第一个参数小于第二个）

编辑：

它似乎适用于我的情况：

我也非常强烈地接受使用建议^$，并相应地修改了我的答案。

Answer 3

您在正则表达式中缺少字符串 ^ 和 $ 的开头和结尾（没有它们，它可以匹配 5 个或更多符号）：

use strict; use warnings;
my ($fiscyear1, $fiscyear2) = @ARGV;
if ($fiscyear1 =~ m{^\d{4}$} && $fiscyear2 =~ m{^\d{4}$} && $fiscyear1 < $fiscyear2) {
    print "good parameters\n";
} else {
    print "Bad parameters\n";
}

更新
您还可以在此处使用unless，例如：

unless ($fiscyear1 =~ m{^\d{4}$} && $fiscyear2 =~ m{^\d{4}$} && $fiscyear1 < $fiscyear2) {
    print "Bad parameters\n";
    exit(1); ## tells the caller side that there is an error
}
print "good parameters\n";