Что означает «0, но факт» в Perl?

Потому что он жестко закодирован в ядре Perl для обработки его как числа. Это взлом, чтобы сделать соглашения Perl и соглашения ioctl играть вместе; от perldoc -f ioctl:

Возвращаемое значение ioctl (и fcntl) выглядит следующим образом:

if OS returns:      then Perl returns:

    -1              undefined value
     0              string "0 but true"
anything else       that number

Таким образом, Perl возвращает true при успехе и false при неудаче, но вы все еще может легко определить фактическое значение, возвращаемое операционная система:

$retval = ioctl(...) || -1;
printf "System returned %d\n", $retval;

Специальная строка "0 but true" освобождается от -w жалоб о неправильных числовых преобразованиях.

В дополнение к тому, что говорили другие, "0 but true" имеет специальную оболочку, поскольку он не предупреждает в числовом контексте:

$ perl -wle 'print "0 but true" + 3'
3
$ perl -wle 'print "0 but crazy" + 3'
Argument "0 but crazy" isn't numeric in addition (+) at -e line 1.
3

Значение 0 but true является частным случаем в Perl. Хотя для ваших простых смертных глаз это не похоже на число, мудрое и всезнающее, что Perl понимает, что это действительно число.

Это связано с тем, что, когда подпрограмма Perl возвращает значение 0, предполагается, что подпрограмма завершилась неудачно или вернула ложное значение.

Предположим, у меня есть подпрограмма, которая возвращает сумму двух чисел:

die "You can only add two numbers\n" if (not add(3, -2));
die "You can only add two numbers\n" if (not add("cow", "dog"));
die "You can only add two numbers\n" if (not add(3, -3));

Первый оператор не умрет, потому что подпрограмма вернет a 1. Это хорошо. Второй оператор будет умирать, потому что подпрограмма не сможет добавить корову к собаке.

И, третий оператор?

Хммм, я могу добавить 3 в -3. Я просто получаю 0, но тогда моя программа умрет, хотя работает подпрограмма add!

Чтобы обойти это, Perl считает, что 0 but true является числом. Если моя подпрограмма добавления возвращает не просто 0, а 0, но true, мой третий оператор будет работать.

Но есть 0, но верно числовой ноль? Попробуйте следующее:

my $value = "0 but true";
print qq(Add 1,000,000 to it: ) . (1_000_000 + $value) . "\n";
print "Multiply it by 1,000,000: " . 1_000_000 * $value . "\n";

Yup, это ноль!

Подпрограмма index - очень старая часть Perl и существовала до концепции 0, но правда была вокруг. Предполагается вернуть позицию подстроки, расположенной в строке:

index("barfoo", "foo");   #This returns 3
index("barfoo", "bar");   #This returns 0
index("barfoo", "fu");    #This returns ...uh...

В последнем статусе возвращается a -1. Это означает, что если я сделал это:

if ($position = index($string, $substring)) {
   print "It worked!\n";
}
else {
   print "If failed!\n";
}

Как я обычно делаю со стандартными функциями, это не сработает. Если бы я использовал "barfoo" и "bar", как во втором, предложение else выполнило бы, но если бы я использовал "barfoo" и "fu", как в третьем, предложение if выполнило бы. Не то, что я хочу.

Однако, если подпрограмма index вернула 0, но значение true для второго оператора и undef для третьего оператора, мое предложение if/else сработало бы.

Вы также можете увидеть строку "0E0" , используемую в коде Perl, и это означает то же самое, где 0E0 означает только 0, записанное в экспоненциальная нотация. Однако, поскольку Perl учитывает только "0", "или" undef" как false, он вычисляет значение true в булевом контексте.

Он жестко закодирован в исходном коде Perl, в частности, в Perl_grok_number_flags в numeric.c.

Считывая этот код, я обнаружил, что строка "бесконечность" (без учета регистра) проходит тест look_like_number. Я этого не знал.

В целочисленном контексте он вычисляет 0 (числовая часть в начале строки) и равен нулю. В скалярном контексте это непустое значение, поэтому оно верно.

• if (int("0 but true")) { print "zero"; }

  (нет вывода)

• if ("0 but true") { print "true"; }

  (выводит true)

0 означает false в Perl (и других языках, связанных с C). По большей части это разумное поведение. Другие языки (например, Lua) рассматривают 0 как истинные и предоставляют другой токен (часто nil или false), чтобы представить неверное значение.

В одном случае, когда способ Perl не работает так хорошо, - это когда вы хотите вернуть либо число, либо, если функция по какой-то причине не сработала, ложное значение. Например, если вы пишете функцию, которая читает строку из файла и возвращает количество символов в строке. Обычно использование функции может быть примерно таким:

while($c = characters_in_line($file)){
    ...
};

Обратите внимание, что если количество символов в определенной строке равно 0, цикл while будет завершен до конца файла. Таким образом, функция characters_in_line должна содержать специальные символы 0 и возвращать '0, но true'. Таким образом, функция будет работать в соответствии с циклом while, но также вернет правильный ответ, если он будет использоваться как число.

Обратите внимание, что это не встроенная часть языка. Скорее, он использует способность Perl интерпретировать строку как число. Поэтому вместо этого иногда используются другие укусы. DBI использует "0E0" , например. При оценке в числовом контексте они возвращают 0, но в булевом контексте false.

Вещи, которые являются ложными:

• "".
• "0".
• Вещи, которые их строят.

"0 but true" не является одним из них, поэтому он не является ложным.

Кроме того, Perl возвращает "0 but true", где ожидается число, чтобы сигнализировать о том, что функция сработала, даже если она вернула нуль. sysseek является примером такой функции. Поскольку ожидается, что значение будет использоваться как число, Perl кодируется, чтобы считать его числом. В результате предупреждения не выдаются, когда оно используется как число, а looks_like_number("0 but true") возвращает true.

Другие "истинные нули" можно найти в http://www.perlmonks.org/?node_id=464548.

Я только что нашел доказательство того, что строка "0, но истинно" активно встроена в интерпретатор, как некоторые люди здесь уже ответили:

$ strings /usr/lib/perl5/5.10.0/linux/CORE/libperl.so | grep -i true
Perl_sv_true
%-p did not return a true value
0 but true
0 but true

Другой пример "0, но true":

Модуль DBI использует "0E0" в качестве возвращаемого значения для запросов UPDATE или DELETE, которые не влияют на какие-либо записи. Он оценивает значение true в булевом контексте (указывая, что запрос был выполнен правильно) и 0 в числовом контексте, указывающем, что запрос не изменялся.

"0, но true" - это строка, как и любая другая, но из-за синтаксиса perl она может служить полезной целью, а именно возвращать целочисленный ноль из функции без результата "false" (в perl-глазах).

И строка не обязательно должна быть "0, но true". "0, но false" по-прежнему "истинно" в логическом смысле.

рассмотреть следующие вопросы:

if(x)

for x:        yields:
1             -> true
0             -> false
-1            -> true
"true"        -> true
"false"       -> true
"0 but true"  -> true
int("0 but true") ->false

В результате всего этого вы можете:

sub find_x()

и этот код сможет напечатать "0" в качестве вывода:

if($x = find_x)
{
   print int($x) . "\n";
}

Если вы хотите написать функцию, которая возвращает целочисленное значение, или false или undef (т.е. для случая ошибки), вы должны следить за нулевым значением. Возврат является ложным и не должен указывать на условие ошибки, поэтому возвращение "0, но true" делает функцию возвращаемым значением true, все еще передавая нулевое значение, когда на нем выполняется математика.

Строка `` 0, но true '' по-прежнему является частным случаем:

for arg in "'0 but true'" "1.0*('0 but true')" \
           "1.0*('0 but false')" 0 1 "''" "0.0" \
           "'false'" "'Ja'" "'Nein'" "'Oui'" \
           "'Non'" "'Yes'" "'No'" ;do
    printf "%-32s: %s\n" "$arg" "$(
        perl -we '
            my $ans=eval $ARGV[0];
            $ans=~s/^(Non?|Nein)$//;
            if ($ans) {
                printf "true:  |%s|\n",$ans
            } else {
                printf "false: |%s|", $ans
          };' "$arg"
        )"
    done

укажите следующее: (обратите внимание на `` warning '!!)

'0 but true'                    : true:  |0 but true|
1.0*('0 but true')              : false: |0|
Argument "0 but false" isn't numeric in multiplication (*) at (eval 1) line 1.
1.0*('0 but false')             : false: |0|
0                               : false: |0|
1                               : true:  |1|
''                              : false: ||
0.0                             : false: |0|
'false'                         : true:  |false|
'Ja'                            : true:  |Ja|
'Nein'                          : false: ||
'Oui'                           : true:  |Oui|
'Non'                           : false: ||
'Yes'                           : true:  |Yes|
'No'                            : false: ||

... и не забудьте RTFM!

man -P'less +"/0 but [a-z]*"' perlfunc

       ... "fcntl".  Like "ioctl", it maps a 0 return from the system call
           into "0 but true" in Perl.  This string is true in boolean
           context and 0 in numeric context.  It is also exempt from the
           normal -w warnings on improper numeric conversions. ...