Сеня рядом и Белла пришел. Былое
Разрешить запуск PowerShell скриптов
По умолчанию запуск скриптов PowerShell может быть запрещён. Пытаюсь запустить скрипт, получаю ошибку: Не удается загрузить файл. Файл не имеет цифровой подписи. Невозможно выполнить сценарий в указанной системе. Посмотрим текущее значение политики выполнения скриптов PowerShell: Get-ExecutionPolicy Возможные варианты: У меня установлена политика AllSigned, поэтому неподписанный скрипт не запустился. Для изменения текущего значения политики запуска PowerShell скриптов используется командлет Set-ExecutionPolicy...
Работа с файлами в 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'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...