sfd
Работа с файлами в Perl
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?
Иногда нужно проверить, всё ли в массиве в порядке и что он вообще содержит. На помощь приходит вывод массива. В этой статье приведу 4 способа вывода массива на PHP. Вывод массива через print_r К примеру, у нас есть массив: $array = array("1","2","3","4","5");
Для его вывода потребуется написать print_r($array);
Результат можно увидеть на скриншоте Вывод массива через var_dump Теперь вместо print_r будем использовать var_dump. Функция выведет больше информации о массиве, чем в предыдущем варианте...