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'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...
Сегодня я познакомлю Вас с невероятно мощным инструментом: однострочными программами на Перле. Однострочники - это программы, текст которых умещается в одну строку и указывается прямо при вызове программы perl как параметр.
Основной ключ - это -e или -E - он и предписывает трактовать все, что после, как текст программы...