9.9. Переименование файлов 341

for (@ARGV) { $was = $ ; eval $op; die $@ if $@;

rename($was, $ ) unless $was eq $ ;

Первый аргумент сценария - код Perl, который изменяет имя файла, хранящееся в $ , и определяет алгоритм переименования. Вся черная работа поручается функции eval. Кроме того, сценарий пропускает вызов rename в том случае, если имя осталось прежним. Это позволяет просто использовать универсальные символы (rename EXPR *) вместо составления длинных списков имен.

Приведем пять примеров вызова программы rename из командного интерпретатора:

% rename s/\.orig$ ♦.orig

% rename tr/A-Z/a-z/ unless /"Make/

% rename $ .= ".bad" .f

% rename print "$ : "; s/foo/bar/ if <STDIN> =" /"y/i * % find /tmp -name •" -print rename s/"(.+)$/.#$1/

Первая команда удаляет из имен файлов суффикс .orig.

Вторая команда преобразует символы верхнего регистра в символы нижнего регистра. Поскольку вместо функции 1с используется прямая трансляция, такое преобразование не учитывает локальный контекст. Проблема рещается следующим образом:

% rename use locale; $ = 1с($ ) unless/"Make/ *

Третья команда добавляет суффикс .bad к каждому файлу Fortran с суффиксом ". f " - давняя мечта многих программистов.

Четвертая команда переименовывает файлы в диалоге с пользователем. Имя каждого файла отправляется на стандартный вывод, а из стандартного ввода читается ответ. Если пользователь вводит строку, начинающуюся с "у " или "Y", то все экземпляры "foo в имени файла заменяются на "bar".

Пятая команда с помощью find ищет в /Шр файлы, имена которых заканчиваются тильдой. Файлы переименовываются так, чтобы они начинались с префикса .#. В сущности, мы переключаемся между двумя распространенными конвенциями выбора имен файлов, содержащих резервные копии.

В сценарии rename воплощена вся мощь философии UNIX, основанной на утилитах и фильтрах. Конечно, можно написать специальную команду для преобразования символов в нижний регистр, однако ничуть не сложнее написать гибкую, универсальную утилиту с внутренним eval. Позволяя читать имена файлов из стандартного ввода, мы избавляемся от необходимости рекурсивного перебора каталога. Вместо этого мы используем функцию find, которая прекрасно справляется с этой задачей. Не стоит изобретать колесо, хотя модуль File::Find позволяет это сделать.

t> Смотри также-

Описание функции rename Bpetifunc(i); страницы руководства mv(l) и гепате(2); документация по стандартному модулю File::Fincl.

th = /usr/lib/libca; Sfile = basename(Spath); Sdir = dirname(Spath);

print "dir is Sdir, file is $file\n"; tt dir is /usr/lib, file is libc.a

Функция f ileparse может использоваться для извлечения расширений. Для этого передайте f ileparse полное имя и регулярное выражение для поиска расширения. Шаблон необходим из-за того, что расширения не всегда отделяются точкой. Например, что считать расширением в ".tar.gz" - ".tar", ".gz" или ". tar.gz"? Передавая шаблон, вы определяете, какой из перечисленных вариантов будет возвращен:

Spath = /usr/lib/libca;

(Sname,Sdir,Sext) = fileparse(Spath,\..*);

print "dir is Sdir, name is Sname, extension is $ext\n"; tt dir is /usr/lib/, name is libc, extension is .a

По умолчанию в работе этих функций используются разделитель, определяемый стандартными правилами вашей операционной системы. Для этого используется переменная $~0; содержащаяся в ней строка идентифицирует текущую систему. Ее значение определяется в момент построения и установки Perl. Значение но умолчанию можно установить с помощью функции fileparse set fstype. В результате изменится и поведение функций File::Basenarae при последующих вызовах:

9.10. Деление имени файла на компоненты

Проблема

Имеется строка, содержащая полное имя файла. Из нее необходимо извлечь компоненты (имя, каталог, расширение (-я)).

Решение

Воспользуйтесь функциями стандартного модуля File:;Basename.

use File;:Basenarae;

$base = basename($path);

Sdir = dirname($path);

($base, Sdir, Sext) = fileparse(Spath);

Комментарий

Функции деления имени файла присутствуют в стандартном модуле File::Base-паше. Функции dirname и basename возвращают соответственно каталог и имя файла:

9.11. Программа: symirror 343

fileparse set fstype("MacOS");

Spath = Hard%20Drive:System%20Folder:README.txt";

($nanie,$dir,$ext) = fileparse($path, Л..«);

print "dir is $dir, name is $name, extension is $ext\n";

# dir is Hard%20Drive:System%20Folder, name is README, extension is .txt

Расширение можно получить следующим образом: ,

sub extension {

my Spath = shift;

my Sext = (fileparse($path. Л-*))[2]; Sext =- s/-\. ; return Sext;

Для файла source.c.bak вместо простого "bak" будет возвращено расширение "с. bak". Если вы хотите получить именно "bak", в качестве второго аргумента f ileparse используйте \ . . *?.

Если передаваемое полное имя заканчивается разделителем каталогов (например, lib/), f ileparse считает, что имя каталога равно "lib/", тогда как dirname считает его равным ". .

1> Смотри также-

Описание переменной $"0 вperlva?-{i); документация но стандартному модулю FiIe::Basenaffle.

9.11. Программа: symirror

Программа из примера 9.6 рекурсивно воспроизводит каталог со всем содержимым и создает множество символических ссылок, указывающих на исходные файлы.

Пример 9.6. symirror

#!/usr/bin/perl -w

# symirror - дублирование каталога с помощью символических ссылок use strict; use File;;Find; use Cwd;

my (Ssrcdir, Sdstdir); my Scwd = getcwdO;

die "usage; SO realdir mirrordir" unless ©ARGV == 2;

for ((Ssrcdir, Sdstdir) = @ARGV) { my Sis dir = -d;

next if $is dir; # Нормально

if (defined ($is dir)) {

die "SO; S is not a directory\n";