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

SMTP Perl - это высокоуровневый язык программирования, который используется для разработки различных приложений и скриптов, включая приложения, работающие с сервисами. Для работы с сервисами на Perl можно использовать модули CPAN, такие, как Net::SMTP, Net::FTP, Net::HTTP и другие. Ниже приведен пример работы с сервисом SMTP с использованием модуля Net::SMTP: use Net::SMTP; $smtp = Net::SMTP->new('smtp.example.com', Debug => 0) or die "Unable to connect to SMTP server\n"; $smtp->auth('username', 'password') or die "Authentication failed\n"; $smtp->mail('sender@example.com'); $smtp->recipient('recipient@example...