Сегодня я получил эту странную строку кода, она говорит мне «пусто» или «не пусто» в зависимости от того, есть ли в CWD какие-либо элементы (кроме . и ..).
Я хочу знать, как это работает, потому что для меня это не имеет смысла.
perl -le 'print+(q=not =)[2==(()=<.* *>)].empty'
Меня интересует бит <.* *>. Я не понимаю, как он получает имена всех файлов в каталоге.
Это игра в гольф. Флаг -e означает выполнение остальной части командной строки как программы. -l включает автоматическую обработку конца строки.
Часть <.* *> представляет собой шар, содержащий два шаблона для расширения: .* и *.
Эта часть
(q=not =)
представляет собой список, содержащий одно значение — строку «не». q=...= — это альтернативный разделитель строк, который, по-видимому, используется, потому что одинарная кавычка используется для цитирования однострочника.
Часть [...] является индексом в этом списке. Значение нижнего индекса будет либо 0 (значение «не»), либо 1 (ничего, что печатается как пустая строка) в зависимости от результата этого сравнения:
2 == (()=<.* *>)
Здесь много чего происходит. Сравнение проверяет, вернул ли glob список ровно из двух элементов (предполагается, что это . и ..), но как это сделать, сложно. Внутренние скобки обозначают пустой список. Присвоение этому списку помещает глобус в контекст списка, так что он возвращает все файлы в каталоге. (В скалярном контексте он ведет себя как итератор и возвращает только один за раз.) Само присваивание оценивается в скалярном контексте (находится в правой части сравнения) и, следовательно, возвращает количество назначенных элементов.
Ведущий + предназначен для того, чтобы Perl не анализировал список как аргументы для print. Завершающий .empty объединяет строку «пусто» с тем, что вышло из списка (то есть либо «не», либо пустая строка).
() ничего нет, список отбрасывается. Цель круглых скобок (с точки зрения программиста) состояла в том, чтобы наложить контекст списка на glob. Вместо этого он мог бы назначить массив (что было бы яснее ИМХО), но он этого не сделал. Или вы имеете в виду тот факт, что пустое присваивание изменяет семантику списка, в скалярном контексте возвращает последний элемент, чтобы присваивание списка возвращало количество элементов? Я, вероятно, должен отредактировать ответ, чтобы уточнить этот бит...
- person Michael Carman; 15.07.2009
<.* *>
— это глобус, состоящий из двух шаблонов: .* — все имена файлов, начинающиеся с ., а * соответствует всем файлам (это отличается от обычных соглашений DOS/Windows).
(()=<.* *>)
оценивает glob в контексте списка, возвращая все совпадающие имена файлов.
Затем сравнение с 2 помещает его в скалярный контекст, поэтому 2 сравнивается с количеством возвращенных файлов. Если это число 2, то единственными записями каталога будут . и .., точка. ;-)
<.* *> означает (glob(".*"), glob("*")). glob расширяет шаблоны файлов так же, как это делает оболочка.
Я считаю, что модуль B::Deparse немного помогает в расшифровке некоторых вещей, которые бросают глаза большинству программистов, таких как конструкция q=...=:
$ perl -MO=Deparse,-p,-q,-sC 2>/dev/null << EOF
> print+(q=not =)[2==(()=<.* *>)].empty
> EOF
use File::Glob ();
print((('not ')[(2 == (() = glob('.* *')))] . 'empty'));
Конечно, это не дает мгновенно «читабельного» кода, но, безусловно, устраняет некоторые камни преткновения.
Документация по этой функции находится здесь. (прокрутите ближе к концу раздела)
