Сравните две (потенциально) переменные undef в perl

Question

Я пытаюсь сравнить две переменные, в которых обычно находятся строки. Эти переменные генерируются из базы данных, $var1 от одного db и $var2 от другого. Когда я сравниваю их в цикле, я использую оператор ne. Однако бывают случаи, когда I эти переменные являются null или undef. Сравнение производится следующим образом:

foreach my $var1 (@$varlist) 
{ 
    if ($var1 ne $var2) 
    { 
    print "vars are not equal"; 
    } 
} 

Проблема в том, что если $var1 или $var2 являются undef тогда я получаю сообщение об ошибке. Тем не менее, мне нужно иметь возможность сравнивать тогда значения как undef b/c, мне придется их написать. Я рассматривал преобразование переменных в строку «NULL», а затем назад, но это казалось неэффективным.

Любой способ исправить это? Спасибо!

Answer 1

Проверьте, если они определены, тоже:

foreach my $var1 (@$varlist) 
    if (! defined $var1 || ! defined $var2 || $var1 ne $var2) 
     print "vars are not equal"; 

Это печатает, что они не равны, если оба не определены. Если вы хотите другое поведение, просто измените выражение if.

Answer 2

Используйте определенную функцию, чтобы определить это:

http://perldoc.perl.org/functions/defined.html

Answer 3

Нельзя сравнивать неопределенные значения, это всего лишь предупреждение. Мне нравится использовать // оператор в Perl (требуется> = v5.10) в подобных случаях, чтобы гарантировать, что операторы определены:

if (($var1 // '') ne ($var2 // '')) { ... } 

будет относиться к неопределенному строку как пустая строка при сравнении, например.

Поскольку вы хотите, чтобы операнды имели определенное значение при печати (NULL была одной из возможностей), вы также можете рассмотреть возможность использования оператора //=.

if (($var1 //= 'NULL') ne ($var2 //= 'NULL')) { 
    print "$var1 and $var2 are not equal"; 
} 

установит значение $var1 или $var2 к 'NULL', если они не определены, а затем выполнить сравнение.

Answer 4

Кажется, что вы практикуете безопасный Perl, используя use warnings;, но теперь вы, возможно, дошли до того места, где вы выборочно отключите их. Эти предупреждения предназначены для вашей собственной защиты, однако, если вы знаете, что собираетесь сравнивать возможные строки undef, просто выключите их немного (команда no является локальной для закрывающего блока, поэтому они снова включаются).

use strict; 
use warnings; 

foreach my $var1 (@$varlist) 
{ 
    no warnings 'uninitialized'; 
    if ($var1 ne $var2) 
    { 
    print "vars are not equal"; 
    } 
}