Проблема Perl - итератор каталога

Где проблема решена главным образом стандартными библиотеками, используют их.

File::Find в этом патронажные работы приятно.

Может быть много способов сделать вещи в жемчуге, но где очень стандартная библиотека существует, чтобы сделать что-то, она должна быть использована, если она не имеет проблемы сами по себе.

#!/usr/bin/perl

use strict;
use File::Find();

File::Find::find( {wanted => \&wanted}, ".");

sub wanted {
  my (@stat);
  my ($time) = time();
  my ($days) = 5 * 60 * 60 * 24;

  @stat = stat($_);
  if (($time - $stat[9]) >= $days) {
    print "$_ \n";
  }
}

File::Find является правильным способом решить эту проблему. Там бесполезен в перереализации материала, который уже существует в других модулях, но перереализации чего-то, что находится в стандартном модуле, нужно действительно препятствовать.

Нет шести способов сделать это, существует старый путь и новый путь. Старый путь с File::Find, и у Вас уже есть несколько примеров этого. File::Find имеет довольно ужасный интерфейс обратного вызова, это было прохладно 20 лет назад, но мы шли дальше с тех пор.

Вот реальная жизнь (слегка исправлена) программа, которую я использую для убирания хлама на одном из моих рабочих серверов. Это использует File::Find::Rule, а не File::Find. File::Find::Rule имеет хороший декларативный интерфейс, который читает легко.

Randal Schwartz также записал File::Finder как обертка по File::Find. Это довольно хорошо, но это действительно не взлетело.

#! /usr/bin/perl -w

# delete temp files on agr1

use strict;
use File::Find::Rule;
use File::Path 'rmtree';

for my $file (

    File::Find::Rule->new
        ->mtime( '<' . days_ago(2) )
        ->name( qr/^CGItemp\d+$/ )
        ->file()
        ->in('/tmp'),

    File::Find::Rule->new
        ->mtime( '<' . days_ago(20) )
        ->name( qr/^listener-\d{4}-\d{2}-\d{2}-\d{4}.log$/ )
        ->file()
        ->maxdepth(1)
        ->in('/usr/oracle/ora81/network/log'),

    File::Find::Rule->new
        ->mtime( '<' . days_ago(10) )
        ->name( qr/^batch[_-]\d{8}-\d{4}\.run\.txt$/ )
        ->file()
        ->maxdepth(1)
        ->in('/var/log/req'),

    File::Find::Rule->new
        ->mtime( '<' . days_ago(20) )
        ->or(
            File::Find::Rule->name( qr/^remove-\d{8}-\d{6}\.txt$/ ),
            File::Find::Rule->name( qr/^insert-tp-\d{8}-\d{4}\.log$/ ),
        )
        ->file()
        ->maxdepth(1)
        ->in('/home/agdata/import/logs'),

    File::Find::Rule->new
        ->mtime( '<' . days_ago(90) )
        ->or(
            File::Find::Rule->name( qr/^\d{8}-\d{6}\.txt$/ ),
            File::Find::Rule->name( qr/^\d{8}-\d{4}\.report\.txt$/ ),
        )
        ->file()
        ->maxdepth(1)
        ->in('/home/agdata/redo/log'),

) {
    if (unlink $file) {
        print "ok $file\n";
    }
    else {
        print "fail $file: $!\n";
    }
}

{
    my $now;
    sub days_ago {
        # days as number of seconds
        $now ||= time;
        return $now - (86400 * shift);
    }
}

Мой предпочтительный метод состоит в том, чтобы использовать модуль File::Find в качестве так:

use File::Find;
find (\&checkFile, $directory_to_check_recursively);

sub checkFile()
{
   #examine each file in here. Filename is in $_ and you are chdired into it's directory
   #directory is also available in $File::Find::dir
}

Существует мой File::Finder, как уже упомянуто, но существует также мое iterator-as-a-tied-hash решение от Нахождения Файлов Инкрементно (Журнал Linux).

Другие упомянули File::Find, который является путем, которым я пошел бы, но Вы попросили итератор, который File::Find не (ни File::Find::Rule). Вы могли бы хотеть посмотреть на File::Next или File::Find::Object, который действительно имеет повторяющиеся интерфейсы. Mark Jason Dominus пробегается через создание Вашего собственного в главе 4.2.2 Perl Высшего порядка.

Я записал File::Find::Closures как ряд закрытий, которые можно использовать с File::Find, таким образом, Вы не должны писать свое собственное. Существует несколько функций mtime, которые должны обработать

use File::Find;
use File::Find::Closures qw(:all);

my( $wanted, $list_reporter ) = find_by_modified_after( time - 86400 );
#my( $wanted, $list_reporter ) = find_by_modified_before( time - 86400 );

File::Find::find( $wanted, @directories );

my @modified = $list_reporter->();

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

Удачи,

Я - riskying для получения downvoted, но по моему скромному мнению 'ls' (с соответствующими параметрическими усилителями) команда делает это самым известным производительным способом. В этом случае это могло бы быть довольно хорошее решение для передачи по каналу 'ls' от кода жемчуга до оболочки, возвратив результаты массиву или хешу.

Править: Это могла также быть используемая 'находка', как предложено в комментариях.

Я пишу подпрограмму, которая читает каталог с readdir, выводит "." и ".." каталоги, рекурсивно вызывает, если это найдет новый каталог и исследует файлы на то, что я ищу (в Вашем случае, то Вы захотите использовать utime или stat). Ко времени сделана рекурсия, каждый файл должен был быть исследован.

Я думаю все функции, в которых Вы нуждались бы для этого сценария, описаны кратко здесь: http://www.cs.cf.ac.uk/Dave/PERL/node70.html

Семантика ввода и вывода является довольно тривиальным осуществлением, которое я оставлю Вам.