344 Глава 9 • Каталоги Пример 9.6 (продолжение)

> else { # Создать каталог

mkdir($dstdir, 07777) or die "cant mkdir Sdstdir: $!";

} continue {

s#"(?!/)#$cwd/#;

chdir $srcdir; find(\&wanted, ,);

# Исправить относительные пути

sub wanted {

my($dev, $ino, $mode) = lstat($ ); my $name = $File::Find;:name;

$mode &= 07777; # Сохранить права доступа

$name =~ s!~\./!; « Правильное имя

if (-d ) { # Затем создать каталог

mkdir("$dstdir/$name", $mode)

or die "cant mkdir $dstdir/$name; $!"; } else { # Продублировать все остальное

symlink("$srcdir/$name", "$dstdir/$name")

or die "cant symlink $srcdir/$name to $dstdir/$name; i

9.12. Программа: 1st

Вам не приходилось отбирать из каталога самые большие или созданные последними файлы? В стандартной программе Is предусмотрены параметры для сортировки содержимого каталогов по времени (флаг -t) и для рекурсивного просмотра подкаталогов (флаг -R). Однако Is делает паузу для каждого каталога и выводит только его содержимое. Программа не просматривает все подкаталоги, чтобы потом отсортировать найденные файлы.

Следующая программа 1st справляетсяс этой задачей. Ниже показан пример подробного вывода, полученного с использованием флага -1:

/etc/X11/XMetroconfig 12636 0644 1 root wheel 290 Sun May 24 9:05:40 1998

/etc/ratab

12627 0640 1 root root 0 Sun May 24 8:24:31 1998

/etc/wtmplock

12310 0644 1 root tchrist 65 Sun May 24 8:23:04 1998

/etc/issue

Файл /etc/X11/XMetroconfig оказался посреди содержимого /etc, поскольку листинг относится не только к /etc, но и ко всему, что находится внутри каталога.

К числу поддерживаемых параметров также относится сортировка по времени последнего чтения вместо записи (-и) и сортировка по размеру вместо времени (-s). Флаг -i приводит к получению списка имен из стандартного ввода вместо рекурсивного просмотра каталога функцией find. Если у вас уже есть готовый список имен, его можно передать 1st для сортировки.

Исходный текст программы приведен в примере 9.7.

Пример 9.7. 1st

#!/usr/bin/perl

# 1st - вывод отсортированного содержимого каталогов

use Getopt;:Std; use File:;Find; use File:;stat; use User;;pwent; use User;;grent;

getopts(lusrcmi) or die «DEATH;

Usage; $0 [-mucsril] [dirs .,.] or $0 -i [-mucsrl] < filelist

Input format;

-i read pathnames from stdin Output format:

-1 long listing Sort on;

-m use mtime (modify time) [DEFAULT]

-u use atime (access time)

-c use ctime (inode change time)

-s use size for sorting Ordering;

-r reverse sort NB; You may only use select one sorting option at a time. DEATH

unless ($opt i II @ARGV) { @ARGV = C.) } if ($opt c + $opt u + $opt s + $opt m > 1) {

Пример 9.7 (продолжение)

die can only sort on one time or size ,

$IDX = mtime , $IDX = atime if $opt u, $IDX = ctime if $opt c, $IDX = size if $opt s,

$TIME IDX = $opt s mtime $IDX

•name = *File Find name, # Принудительное импортирование переменной

й Флаг $opt i заставляет wanted брать имена файлов й из ARGV вместо получения от find

If ($opt i) {

•name = • й $name теперь является синонимом $ while (о) { chomp, &wanted } й Все нормально это не stdin } else {

find(\&wanted, @ARGV) } •

й Отсортировать файлы по кэшированным значениям времени, й начиная с самых новых

@skeys = sort { $time{$b} <=> $time{$a} } keys %time,

Й Изменить порядок, если в командной строке был указан флаг -г @skeys = reverse @skeys if $opt r

for (@skeys) {

unless ($opt l) { » Эмулировать Is -1, кроме прав доступа print $ \n , next,

Snow = localtime $stat{$ }->$TIME IDX(),

printf %6d %04o %6d %8s %Bs %8d %s %s\n , $stat{$ }->ino(), $stat{$ }->mode() & 07777, $stat{$ }->nlink(), user($stat{$ }->uid()), group($stat{$ }->gid()), $stat{$ }->size(), $now, $ ,

Й Получить от stat информацию о файле сохраняя критерий

й сортировки (mtime, atime, ctime или size)

й в хэше %time, индексируемом по имени файла

й Если нужен длинный список, весь объект stat приходится