Чтобы писать на Perl, надо быть красноглазым линуксоидом, безумным гением или самоубийцей. Хотя нет, для самоубийц есть более интересные языки. Предыдущая часть: Какие первые ассоциации вызывает Perl? Он был создан красноглазым линуксоидом юниксоидом Ларри Уоллом в 1987 году для обработки текстовых отчётов. Поэтому его главная фишка это регулярные выражения. Их мы конечно обсудим, но у Перла есть ещё много особенностей. Я застал уже последнюю версию Perl 5. Поэтому буду писать, опираясь на неё. На всякий случай: все мои подколки исключительно шутливые...

1. Копирование файлов по маске Для копирования файлов по маске в Perl можно использовать модуль File::Copy. Пример кода: use strict; use warnings; use File::Copy; my $dir = '/path/to/directory'; my @files = glob("$dir/*.txt"); # выбор файлов по маске foreach my $file (@files) {     my $new_file = $file . '_copy'; # новое имя файла     copy($file, $new_file) or die "Ошибка копирования файла $file: $!"; # копирование файла } В данном примере мы выбираем все файлы с расширением .txt из директории /path/to/directory и копируем каждый из них, добавляя к имени файла суффикс '_copy'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...