Блог

В моем скрипте у меня есть что-то вроде

 my $region = $self->Functiontofind( $tag );

my $value1 = $region->getValue1;
my $value2 = $region->getValue2;
  

$region — это объект, в некоторых случаях $region может быть пустым, то есть, если тег пуст, я хочу выполнить проверку, чтобы увидеть, является ли объект пустым или нет. Как мы можем это сделать.

if (defined ($region)) похоже, не работает.

Спасибо,

Вы должны проверить, какие значения могут быть возвращены Functiontofind , это может быть так: 0 = ошибка, 1 = успех и т.д.

как уже упоминалось, в идеале, его undef для не созданного (как вы выразились).

Кстати, я думаю, это не имеет отношения к этому сообщению, но это напоминает мне о полезности Moose предиката и более четких методов, которые очень полезны для явного различения ложного или неопределенного значения атрибута и атрибута, который не был установлен.

Попробуйте:

 use Data::Dumper;
print Dumper $region;
  

Это подскажет вам, что $region есть на самом деле.

Я подозреваю, что это сработает:

 use Scalar::Util;
if( defined( $region ) amp;amp; ref( $region ) amp;amp; blessed( $region )){
  

Смотрите:

данные perldoc::Dumper

скаляр perldoc::Util и поиск /blessed/

если Functiontofind возвращает что-то отличное от undef , когда ничего не найдено, тогда вам нужно будет выяснить, что он возвращает в этом случае, и построить свой тест на основе этого. Если это все еще какой-то объект, но другого типа, ref может подойти, или, возможно isa (из UNIVERSAL).

Но ваш модуль может просто возвращать объект того же класса, но с некоторыми пустыми атрибутами. Возможно, вам придется протестировать это… В таком случае я бы предложил добавить метод просто для проверки, является ли объект этого класса пустым.

В идеале, я хотел бы Functiontofind вернуть что-то всегда , а затем использовать метод $region нравится isEmpty или что-то решать, будет ли он пустым или нет, а не возвращать ничего, если совпадение найдено. Однако, если вы хотите, вы можете проверить, $region == undef чтобы увидеть, не определен ли он.