Perl является мощным инструментом для работы с текстом. Ниже приведены некоторые примеры того, как можно использовать Perl для работы с текстом. 1. Считывание строки Для считывания строки из стандартного ввода используйте функцию <STDIN>: my $str = <STDIN>; # считать строку print $str; # вывести строку 2. Замена текста Функция s/// позволяет заменить один текст на другой в строке: my $str = "Hello World!"; $str =~ s/World/Perl/; # заменить World на Perl print $str; # вывести строку 3. Разделение строки Чтобы разделить строку на подстроки, используйте функцию split(): my $str = "one, two,...

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