операторы, которые возвращают только логический результат, всегда будут возвращать 1 для истины и специальное значение false, которое "" в строковом контексте, но 0 в числовом контексте.

Оператор ! выполняет логические операции. "" (Пустая строка) является таким же ложным , как 0 . 1 - удобное истинное значение. ! не следует полагаться ни на что иное, кроме получения некоторого истинного / ложного значения. Опасно полагаться на точное значение сверх этого, и оно может меняться в зависимости от версии Perl.

См. perldoc perlsyn :

Истина и ложь

Число 0, строки «0» и «», пустой список () и undef все false в логическом контексте. Все остальные ценности верны. Отрицание истинного значение по! или не возвращает специальный ложное значение. При оценке как строка рассматривается как '', но как число, оно обрабатывается как 0.

Там, если вы напечатаете значение как число, вы получите 0 вместо пустой строки:

printf "%d\n", $_ for map { !$_ } (1, 0);

или

print 0 + $_, "\n" for map { !$_ } (1, 0);

Сравните их с

printf "%s\n", $_ for map { !$_ } (1, 0);

] и

print $_, "\n" for map { !$_ } (1, 0);

Вот дополнение к другим отличным ответам, которые вы уже получили.

Not is Not Not

Рассмотрим следующий код, который проверяет каждый из операторов Perl «not»:

#!/usr/bin/perl

use strict;
use warnings;

for( '!1', 'not 1', '~0' ) {
    my $value = eval;
    my $zero_plus = 0 + $value;

    print join "\n", 
        "\nExpression: $_",
        "Value:     '$value'",
        "Defined:   " . defined $value,
        "Length:    " . length($value),
        "Plus:      " . +$value,
        "Plus Zero: '$zero_plus'",
        '';
}

print "\nTest addition for a literal null string:  ";
print 0+'', "\n";

use Scalar::Util qw(dualvar);

{   # Test a dualvar 
    my $value = dualvar 0, '';
    my $zero_plus = 0+$value;

    print join "\n", 
        "\nExpression: dualvar",
        "Value:     '$value'",
        "Defined:   " . defined $value,
        "Length:    " . length($value),
        "Plus:      " . +$value,
        "Plus Zero: '$zero_plus'",
        '';

}

Его выполнение приводит к следующему. Обратите внимание на предупреждающее сообщение:

Argument "" isn't numeric in addition (+) at test.pl line 21.

Expression: !1
Value:     ''
Defined:   1
Length:    0
Plus:
Plus Zero: '0'

Expression: not 1
Value:     ''
Defined:   1
Length:    0
Plus:
Plus Zero: '0'

Expression: ~0
Value:     '4294967295'
Defined:   1
Length:    10
Plus:      4294967295
Plus Zero: '4294967295'

Test addition for a literal null string:  0

Expression: dualvar
Value:     ''
Defined:   1
Length:    0
Plus:
Plus Zero: '0'

Из этого мы узнаем несколько вещей.

Первые два элемента не так уж интересны:

• ! 1 и not 1 ведут себя в основном одинаково.
• Неудивительно, что ~ 1 отличается (не поразрядно).

Теперь интересный пункт:

• Пока мы получаем предупреждение для строки 21 ( 0+ ' '), при добавлении 0+! 1 предупреждений не возникает.

Для запутывания нужны двое

Происходит что-то подозрительное, и эта подозрительность связана со специальными скалярными контекстами в Perl. В этом случае различие между числовым и строковым контекстами. И возможность создать переменную, которая имеет разные значения в каждом контексте, также известную как двойная переменная.

Похоже, ! 1 возвращает двойную переменную, которая возвращает 0 в числовом контексте и пустую строку в строке контекст.

Тест на двойную переменную в конце показывает, что самодельная двойная переменная работает так же, как ! 1 .

Но это хорошая вещь

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

Насколько мне известно, двойная переменная 0 и ». - единственное определенное значение, которое вернет ложь во всех скалярных контекстах. Так что это очень разумное возвращаемое значение для ! 1 . Можно возразить, что undef - хороший ложный результат, но тогда неинициализированная переменная не отличима от ложного значения. Кроме того, попытки распечатать или добавить результаты логических значений будут сопровождаться ненужными предупреждениями.

Еще одна известная двойная переменная - $! или $ OS_ERROR , если вы используете английский язык . В числовой форме вы получаете код ошибки, в строковой форме код ошибки переводится для вас.

Это не ничего, это пусто, но это ничего

Таким образом, вы ничего не получаете, вы не получают пустую строку, и вы не получаете ноль.