Как использовать логические переменные в Perl?
Я пробовал:
$var = false;
$var = FALSE;
$var = False;
ничего из этого не работает. Я получаю сообщение об ошибке
Bareword "false" not allowed while "strict subs" is in use.
8 ответов
в Perl следующее значение равно false в условных обозначениях:
0
'0'
undef
'' # Empty scalar
() # Empty list
('')
остальное-правда. Нет barewords для true
или false
.
самое полное, краткое определение false, с которым я столкнулся, это:
все, что строится в пустую строку или строку " 0 " является false. Все остальное-правда.
таким образом, следующие значения являются ложными:
- пустая строка
- числовое значение ноль
- значение undefined
- объект с перегруженным логическим оператором, который вычисляет один из вышеперечисленных.
- A магическая переменная, которая оценивается как одна из вышеперечисленных на fetch.
имейте в виду, что пустой литерал списка оценивает неопределенное значение в скалярном контексте, поэтому он оценивает что-то ложное.
примечание об "истинных нулях"
в то время как числа, которые stringify в 0
являются ложными, строки, что numify до нуля не обязательно. Единственный ложные строки 0
и пустая строка. Любая другая строка, даже если она numifies к нулю, это правда.
ниже приведены строки, которые имеют значение true как логическое и ноль как число.
- без предупреждающий:
"0.0"
"0E0"
"00"
"+0"
"-0"
" 0"
"0\n"
".0"
"0."
"0 but true"
"\t00"
"\n0e1"
"+0.e-9"
- с предупреждением:
- любая строка, для которой
Scalar::Util::looks_like_number
возвращает false. (например,"abc"
)
- любая строка, для которой
Perl не имеют собственного логического типа, но вы можете использовать сравнение целых чисел или строк, чтобы получить такое же поведение. Пример Алана-хороший способ сделать это, используя сравнение целых чисел. Вот пример
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
одна вещь, которую я сделал в некоторых моих программах, добавляется такое же поведение с помощью константы:
#!/usr/bin/perl
use strict;
use warnings;
use constant false => 0;
use constant true => 1;
my $val1 = true;
my $val2 = false;
print $val1, " && ", $val2;
if ( $val1 && $val2 ) {
print " evaluates to true.\n";
} else {
print " evaluates to false.\n";
}
print $val1, " || ", $val2;
if ( $val1 || $val2 ) {
print " evaluates to true.\n";
} else {
print " evaluates to false.\n";
}
строки, отмеченные в "use constant", определяют константу с именем true, которая всегда равна 1, и константу с именем false, которая всегда вычисляет значение 0. Из-за того, как константы определены в Perl, следующие строки кода также терпят неудачу:
true = 0;
true = false;
сообщение об ошибке должно сказать что-то вроде "не удается изменить константу в скалярном назначении."
Я видел это в одном из комментариев, которые вы спросили о сравнении строк. Вы должны знать, что, поскольку Perl объединяет строки и числовые типы в скалярных переменных, у вас есть другой синтаксис для сравнения строк и цифры:
my $var1 = "5.0";
my $var2 = "5";
print "using operator eq\n";
if ( $var1 eq $var2 ) {
print "$var1 and $var2 are equal!\n";
} else {
print "$var1 and $var2 are not equal!\n";
}
print "using operator ==\n";
if ( $var1 == $var2 ) {
print "$var1 and $var2 are equal!\n";
} else {
print "$var1 and $var2 are not equal!\n";
}
разница между этими операторами являются очень распространенным источником путаницы в Perl.
рекомендую use boolean;
. Вы должны установить boolean модуль из CPAN, хотя.
мои любимые всегда были
use constant FALSE => 1==0;
use constant TRUE => not FALSE;
который полностью независим от внутреннего представления.
я наткнулся на учебник которые имеют хорошее объяснение о какие значения true и false в Perl. Это что:
следующие скалярные значения считаются ложными:
-
undef
- значение undefined -
0
число 0, даже если вы пишете его как 000 или 0.0 -
''
пустая строка. -
'0'
строка, содержащая один 0 цифра.
истинны все остальные скалярные значения, включая следующие:
-
1
любое число, отличное от 0 -
' '
строка с пробелом в ней -
'00'
две или более 0 символов в строке -
"0\n"
0, за которым следует новая строка 'true'
-
'false'
да, даже строка "false" имеет значение true.
есть еще один хороший учебник, который объясните про Perl true и false.
красивое объяснение, данное bobf для булевых значений : True или False? Краткий Справочник
тесты на истинность для разных значений
Result of the expression when $var is:
Expression | 1 | '0.0' | a string | 0 | empty str | undef
--------------------+--------+--------+----------+-------+-----------+-------
if( $var ) | true | true | true | false | false | false
if( defined $var ) | true | true | true | true | true | false
if( $var eq '' ) | false | false | false | false | true | true
if( $var == 0 ) | false | true | true | true | true | true
используйте следующий префикс файла, это добавит к вашему скрипту perl eTRUE и eFALSE, это будет реально (!) true и false (так же, как java)
#!/usr/bin/perl
use strict;
use warnings;
use constant { #real true false, compatible with encode_json decode_json for later (we don't want field:false... will be field:0...)
eTRUE => bless( do{\(my $o = 1)}, 'JSON::PP::Boolean' ),
eFALSE => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' )
};
есть, на самом деле, несколько причин, почему вы должны использовать это.
моя причина в том, что при работе с JSON у меня есть 0 и 1 в качестве значений для ключей, но этот хак гарантирует, что правильные значения будут сохранены вдоль вашего скрипта.