Блог

У меня есть функция ниже:

 sub getMinFromParam {
    my ($param) = @_;

    print "PPPP = $paramn";

    my $min;
    if ($param =~ /s*[(S ),s*(S )]s*/) {
    print "IN HEREn";
        $min = $1;
    }
    elsif ($min =~ /((w ),) /) {
        my @tmp = split (/s*,s*/, $param);
        if ($tmp[0] =~ /[(w ),s?(w )]/) {
            $min = $1;
        }
        else {
            $min = $tmp[0];
        }
    }
    return ($min);
}
  

Когда $param представляет собой строку типа: 120u, 421u, 53, 19, 41u, 53,
Я получаю сообщение об ошибке: использование неинициализированного значения в шаблоне match (m //) в этой строке:

 if ($param =~ /s*[(S ),s*(S )]s*/) {
  

Почему он жалуется на неинициализированное значение, когда определен $param?

Это не так. Он жалуется на эту строку:

 elsif ($min =~ /((w ),) /) {
  

По крайней мере, здесь с тестовыми данными 120u, 421u, 53, 19, 41u, 53

Что и ожидалось, поскольку $min устанавливается только в том случае, если $param совпадает, но elsif выполняется только в том случае, $param если не совпадает.

Вероятно, эта строка должна быть elsif ($param =~ /((w ),) /) { , и в этом случае я не получаю предупреждения.

На самом деле $min это не определено, и об этом сообщается при использовании strict и warnings . Это исправляет:

 use strict;
use warnings;

sub getMinFromParam
{
    my ($param) = @_;

    print "PPPP = $paramn";

    my $min;
    if ($param =~ /s*[(S ),s*(S )]s*/)
    {
        print "IN HEREn";
        $min = $1;
    }
    elsif (defined $min amp;amp; $min =~ /((w ),) /)
    {
        my @tmp = split (/s*,s*/, $param);
        if ($tmp[0] =~ /[(w ),s?(w )]/)
        {
            $min = $1;
        }
        else
        {
            $min = $tmp[0];
        }
    }
    return ($min);
}

getMinFromParam "120u, 421u, 53, 19, 41u, 53"