Предположим, что:If-оператор сокращения Condtion
...
use Config::Properties::Simple;
...
my $p = Config::Properties::Simple->new(file => $propfile);
...
$str = $p->getProperty('prop');
...
.
ли
...
if (defined $str and $str ne "") { #1
...
равна
...
if ($str) { #2
...
?
Если нет, есть ли способ упростить #1 сообщение с пометкой?
Нет, они не то же самое, если $str является "0".
Вы можете упростить заявление просто проверить длину:
if (length $str) { ...
В последних версиях Perl, length(undef) является undef без какого-либо предупреждения генерироваться. И использование undef в качестве булева не генерирует предупреждения.
(Под «недавнее» Я имею в виду 5.12 and up. Раньше length(undef) будет производить «Использование неинициализированного значения длины», если вы предупреждения включены, которые вы должны.)
Нет, это разные для $str=0; и $str="0"; для начинающих.
Возможно. Зависит от того, какие значения могут иметь значения $str, что вы проверяете и какую версию Perl вы хотите поддерживать. Возможности:
if ($str)if (length($str))if (defined($str))
'если (($ ул // ' ') ne' ') {...} ' –
Да, они равны. И как вы могли упростить №2? – Axeman
Это логически неверно, если не определено «,» и 0. Существует интересный частный случай 0E0, ноль в экспоненциальном обозначении, что является логическим истинным. – ddoxey