Внедрение нового регламента работы с персональными данными (GDPR — General Data Protection Regulation) состоится буквально через несколько дней. Поэтому очень важно и бизнесменам, и обычным пользователям понимать, где находятся их данные и как ими распоряжаются компании. Жители Евросоюза получат запросы от европейских технологических компаний. Фирмы должны предоставить своим клиентам информацию о хранении их данных. Все это должно произойти до 25 мая. Новый веб-сайт My Data Request поможет решить эту задачу гораздо проще...
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'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...