Perl (Логическое отрицание + побитовое отрицание)

[BratSinot]

Доброго времени суток!

Начал изучать Perl. Сваял код, который убирает строки коментарии(#) и пустые строки.

Код:

use Fcntl; sysopen(F, $ARGV[0], O_RDONLY); @f=<F>; close F; sysopen(F, $ARGV[0], O_WRONLY|O_TRUNC|O_CREATE); foreach $str (@f) { ($str !~ /^#/&&$str !~ /^$/)?printf(F $str):0; } close F;

Поскольку код писал не полностью я, я непонимаю некоторых моментов. А именно вот этот:

Код: Выделить всё

$str !~ /^#/

На кой черт нам нужно инвертировать символ '#', а потом еще и отрицат полученный результат? И вообще, у нас $str это срока, как мы строку сравниваем с одним символом?

[/dev/random]

Код: Выделить всё

$str !~ /^#/

На кой черт нам нужно инвертировать символ '#', а потом еще и отрицат полученный результат? И вообще, у нас $str это срока, как мы строку сравниваем с одним символом?

Прочитайте что-нибудь про регулярные выражения. "^" означает инверсию _только_ после открывающей квадратной скобки. В начале регулярного выражения он означает "начало строки".

[BratSinot]

Код: Выделить всё

$str !~ /^#/

На кой черт нам нужно инвертировать символ '#', а потом еще и отрицат полученный результат? И вообще, у нас $str это срока, как мы строку сравниваем с одним символом?

Прочитайте что-нибудь про регулярные выражения. "^" означает инверсию _только_ после открывающей квадратной скобки. В начале регулярного выражения он означает "начало строки".

Не, не, не, я про !~.

[/dev/random]

Не, не, не, я про !~.

Здесь только одно отрицание. "!~" означает "не соответствует регулярному выражению". Где вы второе отрицание увидели, если не в "^"?

[liaonau]

Поскольку код писал не полностью я, я непонимаю некоторых моментов. А именно вот этот:

Код: Выделить всё

$str !~ /^#/

На кой черт нам нужно инвертировать символ '#', а потом еще и отрицат полученный результат? И вообще, у нас $str это срока, как мы строку сравниваем с одним символом?

Что вообще в вашем понимании «инвертировать символ '#'»? Что такое инверсия символа? Где конкретно это в коде?
Вы случайно, не «~» этим называете?

[liaonau]

И вообще, у нас $str это срока, как мы строку сравниваем с одним символом?

Мы сравниваем начало — «^» строки с символом «#». А вообще, в целом, в perl нет понятия «символ» в смысле типа данных. Есть только скалярный тип данных, который может быть числовым или строковым.

[BratSinot]

Так, я так понял !~ это один оператор? Я просто их принял за два отдельных.

[liaonau]

Так, я так понял !~ это один оператор? Я просто их принял за два отдельных.

Здесь ~ это связывание с переменной (=~ или !~). Без него применяется к $_. Это не унарное побитовое отрицание.