Быстрая очистка каталога с помощью Perl

Этот один лайнер использует много ярлыков:

1. <*> — это частный случай оператора ромба. Вы не можете получить доступ к объекту итератора, как в других языках. Здесь он вызывает функцию glob. В контексте списка он возвращает список из всех результатов (которые являются либо строками файла, либо, как в вашем случае, содержимым каталога. Возвращаемое значение этого передается в for, который перебирает список и псевдонимы значений в $_. $_ является «переменной по умолчанию» для многих функций…
2. Что приводит нас сюда. Многие основные функции по умолчанию имеют значение $_ без аргументов. Так что сделайте unlink и stat.
3. (stat)[9] означает выполнение stat в контексте списка и выбор 10-го результата (индексы начинаются с нуля, это время модификации). (сравните это с доступом к массиву, например $foo[9]).

Код

for(<*>){((stat)[9]<(unlink))}

эквивалентно:

for my $file (<*>) {
    my $mtime = (stat($file))[9];
    $mtime < unlink($file);
}

<*> также можно заменить на glob "*", что может быть более читабельно.

Код удалит все файлы в текущем каталоге. Он не будет удалять каталоги.

Обратите внимание, что последний оператор в цикле полностью избыточен. Если действует use warnings, выдается предупреждение:

Useless use of numeric lt (<) in void context

Чтобы этот код имел смысл, я бы ожидал сравнения, которое действительно имеет значение, например, сравнение $mtime с некоторым временем, чтобы узнать, какие журналы устарели, например:

if ($mtime < $oldtime) {
    unlink $file or die "Cannot unlink $file: $!";
}

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

1. конструкция for(‹*>) - я предполагаю, что она перебирает файлы в текущем каталоге. Но где он хранит итератор?

for-loops можно использовать для перебора массивов/списков, поэтому, если <*> создает список, то ваш код является просто циклом for. Как оказалось, <*> — это еще один способ написания glob(), который похож на регулярное выражение для получения имен файлов, а glob() возвращает список в контексте списка, то есть в контексте a для цикла обеспечивает. См.: http://perldoc.perl.org/functions/glob.html.

Обратите внимание, что одинарные кавычки не позволяют оболочке расширить *, что помешает Perl его увидеть.