https://opennet.dev/openforum/vsluhforumID9/9215.html Добрый день.<br><br>Есть скрипт:<br><br>#!/usr/bin/perl<br><br>use utf8;<br>use warnings;<br>use strict;<br><br>my $var1;<br>my $var2 = "0";<br>my $var3 = 0;<br>my $var4 = "a";<br><br>print isDef($var1)."\n";<br>print isDef($var2)."\n";<br>print isDef($var3)."\n";<br>print isDef($var4)."\n";<br><br>sub isDef {<br> if (shift) {<br> return "true";<br> } else {<br> return "false";<br> }<br>}<br><br>После выполнения получаем результат:<br><br>./test.pl <br>false<br>false<br>false<br>true<br><br>Первая переменная действительно не определена, но почему вторая и третья тоже?<br><br>p.s. Perl v5.14.1 built for i386-freebsd-thread-multi-64int<br> https://opennet.dev/openforum/vsluhforumID9/9215.html#7 Fri, 16 Sep 2011 20:06:28 GMT Извиняюсь. Действительно не понял авторского замысла. Но все равно пара замечаний.<br><br>Во-первых, совершенно не понятно из чего исходил автор, когда давал имя функции isDef. Проверяет она на истина/ложь, а не на определено/не_определено. Эта неточность влечет неверные выводы в дальнейших рассуждениях.<br><br>Во-вторых, Perl мы любим за краткость:<br>sub isTrue { shift ? 'true' : 'false' }<br><br> https://opennet.dev/openforum/vsluhforumID9/9215.html#6 Thu, 15 Sep 2011 12:59:38 GMT &gt; Правильно не делать еще одну безполезную функцию. Есть defined и его достаточно.<br><br>товарищ просто проверял как работает if, а if от 0 дает false, потому и получилось как получилось.<br> <br><br><br> https://opennet.dev/openforum/vsluhforumID9/9215.html#5 Fri, 02 Sep 2011 22:11:22 GMT Правильно не делать еще одну безполезную функцию. Есть defined и его достаточно.<br><br><br> https://opennet.dev/openforum/vsluhforumID9/9215.html#4 Sun, 14 Aug 2011 15:40:15 GMT &gt; Натуральный быдлокод.<br><br>А как правильно?<br> https://opennet.dev/openforum/vsluhforumID9/9215.html#3 Tue, 09 Aug 2011 21:21:57 GMT Натуральный быдлокод.<br><br><br> https://opennet.dev/openforum/vsluhforumID9/9215.html#2 Sun, 07 Aug 2011 19:50:40 GMT Для ключей хеша ещё есть проверка на if(exists $hash{key})<br> https://opennet.dev/openforum/vsluhforumID9/9215.html#1 Sun, 07 Aug 2011 10:49:45 GMT Ответ уже сам нашел&#8230;<br><br>A simple Boolean test will not distinguish among undef, zero, the empty string, and "0" , which are all equally false.<br><br>Если кому интересно, решение работает:<br><br>sub isDef {<br> return (defined shift) ? 'true' : 'false';<br>}<br>