Переименование файлов
Проблема
Требуется переименовать файлы, входящие в некое множество.
Решение
Воспользуйтесь циклом foreach и функцией rename:
foreach $file (@NAMES) {
my $newname = $file;
# change $file
rename($file, $newname) or
warn "Couldn't rename $file to $newname: $!\n";
}
Комментарий
Программа вполне тривиальна. Функция rename получает два аргумента — старое и новое имя.
Функция rename предоставляет интерфейс к системной функции переименования, которая обычно
позволяет переименовывать файлы только в том случае, если старое и новое имена находятся в
одной файловой системе.
См. также
Proverte kod v komentariyah gde pro list tam oshibki detskie
Оставить комментарий:
|
|