在 Perl 中，将变量设置为正则表达式，我收到一个未初始化的值警告-解网

问：

因此，我有这个代码块，用于分析传递到 CGI 调用的参数值。

我有这个代码块来做这件事。

if (defined($passed_args->{'between'})) {
    my $between = $passed_args->{'between'};
        my $date_field = @$between[0];
        my $start_date = @$between[1];
        my $end_date   = @$between[2];
        my $gdt_regex  = /[0-9]{4}(-)((0[1-9])|(1[0-2]))(-)((0[1-9])|([1-2][0-9])|(3[0-1]))(\s)(([0-1][0-9])|(2[0-3])):([0-5][0-9]):([0-5][0-9])/;

        if (!defined($passed_args->{$date_field}) && $start_date =~ $gdt_regex && $end_date =~ $gdt_regex) {
            $self->error('between parameter not populated correctly.');
            return;
        }

        $query_url .= $date_field . "BETWEEN" . $start_date . "@" . $end_date . "^";

    delete $passed_args->{'between'};

}

start_date 和 end_date 的值采用如下格式：

2019-04-04 00:00:00

在我的服务器日志中，我反复收到以下警告：

Use of uninitialized value $_ in pattern match (m//) at /my/script.pm line 6316

第 6316 行对应：

my $gdt_regex = /[0-9]{4}(-)((0[1-9])|(1[0-2]))(-)((0[1-9])|([1-2][0-9])|(3[0-1]))(\s)(([0-1][0-9])|(2[0-3])):([0-5][0-9]):([0-5][0-9])/;

因此，据我所知，在使用未初始化的值进行模式匹配时，您会遇到该错误。然而，当我为变量分配正则表达式时，为什么我会得到它？捕获组是否有什么原因导致 Perl 陷入困境？还是我错过了别的东西？

据我所知，这并没有造成任何伤害，但这经常出现在我的日志中，我想清除它。

正则表达式 Perl 变量警告

use strict;
use warnings;

........

if (defined($passed_args->{'between'})) {
    my($date_field,$date_start,$date_end) = @{$passed_args->{between}}[0..2];

    {
        $self->error('ERROR: between parameter not populated correctly.');
        return;
    } if ( !defined($passed_args->{$date_field}) 
        && !is_valid($date_start) 
        && !is_valid($date_end)
    ) 

    $query_url .= $date_field . "BETWEEN" . $start_date . "@" . $end_date . "^";

    delete $passed_args->{'between'};

}

#
# timestamp validation
#
sub is_valid {
    my $timestamp = shift;

    return 0 if $timestamp !~ /\d{4}-\d{2}-\d{\2} \d{2}:\d{2}:\d{2}/;

    my($date,$time)         = split ' ', $timestamp;
    my($year,$month,$day)   = split '-', $date;
    my($hour,$min,$sec)     = split ':', $time;

    #return 0 if $year  < 1900 or $year  > 2019;
    return 0 if $month < 1    or $month > 12;
    return 0 if $day   < 1    or $day   > 31;
    return 0 if $hour  < 1    or $hour  > 23;
    return 0 if $min   < 1    or $min   > 59;
    return 0 if $sec   < 1    or $sec   > 59;

    return 1;   # timestamp is valid
}

除非后面跟着流控制操作（、、等），否则不应使用 // 。所以应该是.1）使用 // 会降低可读性。符号用于 // 是有原因的。2），并且优先级非常低，这最终会咬你。事实上，由于使用了错误的运算符，您有一个优先级错误。（我修好了。andornotdienextreturn$day < 1 or $day > 31$day < 1 || $day > 31andornot&&||!andornot

0赞 ikegami 12/1/2019

我确实认为从表达式中删除范围检查的建议是一件好事。速度稍慢，但可读性更强。

0赞 Polar Bear 12/1/2019

帖子中的@Toto正则表达式接受从 0000 到 9999 的年份——这非常有用！我不认为计算机在 1936 年之前就已经存在了。好的，第 12 个月对我的验证有效，但在 perl 中，月份编号从 0 - tutorialspoint.com/perl/perl_date_time.htm 开始。

0赞 Polar Bear 12/1/2019

@ikegami -- 谢谢你的修复，当我写下答案时已经太晚了。我正在做一些常规项目，需要一些转移来转移我的注意力来改变——这个问题就是这个小小的转移。

上一个：为什么这个关于严格订阅的错误只在自动模式下触发？

下一个：perl 中的“一次”警告是什么？

在 Perl 中，将变量设置为正则表达式，我收到一个未初始化的值警告

In Perl, set a variable to a regex, and I get an uninitialized value warning

评论

评论