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'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...

При разработке программ, особенно учебных, довольно часто необходимо создавать массивы с какими-то данными. И нередко нужны массивы просто с какой-то последовательностью чисел или символов. Создавать такие массивы можно разными способами. Первое, что приходит в голову - это использовать цикл. Однако есть способы проще, у каждых языков они свои. В PHP, например, есть функция range(). Синтаксис: range(string|int|float $start, string|int|float $end, int|float $step = 1): array Функция может принимать три параметра (последний - необязательный)...