Това е част от общ примерен код:
while (1) {
print "foo\n";
}
който отпечатва 'foo' завинаги.
perl foo.pl
foo
foo
foo
...
и
while (0) { print "foo\n"; }
умира тихо, както очаквате:
perl test.pl
Може ли някой да обясни защо това е полезна реализация на while? Това работи поне на 5.10, Unix и MacOS X:
while (-1) { print "foo\n"; }
което дава
foo
foo
foo
...
Ако не друго, може да се каже, че -1 е по-вероятно да е вярно, отколкото 1, тъй като -1 (111..111b) е побитово отрицание на нула (000..000b). BASIC и GW-BASIC използваха -1, когато трябваше да върнат истинска стойност.
Независимо от това, Perl реши, че стойностите, които означават "празно" или "нищо", са неверни. Повечето езици имат подобно мнение. По-конкретно, цяло число нула, нула с плаваща запетая, низът нула, празният низ и undef са неверни.
Това е документирано, въпреки че документацията е лошо формулирана. (Изброява () като стойност, която е невярна, но няма такава стойност.)
Освен последователността е много полезно да се приложи този подход. Например, позволява на човек да използва
if (@x)
вместо
if (@x != 0)
if (($x) = (undef)) { #true срещу if (($x) = ()) { #false. И в двата случая $x е зададено на undef, но истинността на израза се определя от броя на елементите в списъка, а не от стойностите на тези елементи.
- person Ven'Tatsu; 03.10.2011
().
- person ikegami; 03.10.2011
say scalar( ($x)=(4,5) ); отпечатва 2 и say scalar( ($x)=() ); отпечатва 0.)
- person ikegami; 03.10.2011
Всяко ненулево цяло число се оценява на true. И 0 винаги е false
От perldoc perlsyn (Истина и лъжа):
Числото 0, низовете '0' и '', празният списък () и undef са неверни в булев контекст. Всички други стойности са верни.
-1 се счита за вярно.
0 (броя елементи), а празен списък се оценява на undef (последния му елемент), като и двата вече са фалшиви, без да се изисква логика на специални случаи, за да се справи с тях.
- person Dave Sherohman; 04.10.2011
Въпросът е 'защо perl смята, че -1 е вярно?'.
Отговорът е, че когато perl беше разработен, беше решено, че определени стойности ще бъдат оценени като false. Това са:
Това е всичко, за което се сещам за подходящ отговор на въпроса защо. Просто беше проектирано по този начин.
Само цяло число 0 се счита за невярно. Всяко друго цяло число, различно от нула, се счита за вярно.
"" връща нещо, което не е нито нула, нито вярно.
- person ikegami; 03.10.2011
всяко цяло число ‹> 0 е вярно. 0 винаги е невярно.
"0e0" не връща цяло число в смисъла на CS.
- person ikegami; 03.10.2011
Perl взе това поведение от awk и C.
Защо C го прави е обяснено тук.
-1се счита за истинска стойност на много езици. - person Quentin schedule 03.10.2011ifсе оценява, включително всички странични ефекти, и ако се сравни, не е равно на 0, първият подизраз се изпълнява. (Наблягането е добавено). Така че това е стандартният начин за правене на нещата на всеки език. - person frezik schedule 03.10.2011trueи защо?“). Гласовете против тук, предполагам, са, защото това точно не се иска. - person Konrad Rudolph schedule 03.10.2011