File::List видел, но он проверяет все файлы. К тому же, возвращает списком, а не итератором, а это может занять дофига памяти

Стопитсот таких модулей написали:

1. http://search.cpan.org/perldoc?File::Find

2. http://search.cpan.org/perldoc?File::Find::Rule

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

File::Find то каким боком? искать все файлы в корне и сравнивать с regexpом? Зачем мне тысячи ненужных сравнений, если по регекспу уже видно, что файлы лежат например в /etc.

File::Find::Rule просто чуть более объектно ориентированый фронтенд к File::Find. Он тоже будет обходить всё дерево, не пытаясь вдуматься в регексп

Может, лучше руками указать где ему можно искать? Имхо, тут умный механизм будет лишним потому что примитивный вариант легко надурить, а «умный» подход городить, имхо, не так просто написать.

Ну или надо обозначить какие regex-правила допустимы на вход функции.

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

path1=>['/etc/nginx/',qr'\w+\.conf'],
path2=>['/var/log/',qr'.*','access.log']

Посоветуйте, пожалуйста, модуль для perl, для поиска файлов по pcre регулярному выражению.

find(1)

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

NoWay

Зачем мне тысячи ненужных сравнений, если по регекспу уже видно, что файлы лежат например в /etc.

а разве каталог для поиска только корень, и всё? AFAIK директория задаётся отдельно.

Ээээ. Вы не понимаете как работает фс и как происходит поиск файлов. Зачем нужно начинать с корня? Начинайте с /etc. И прочитайте ман по glob(), он делает ровным счетом тоже самое. Также грузит весь список файлов, также после делает сравнение. То, что можно указать путь внутри регепса нифига не значит!

Чего нет в модулях? Регепс это регепс. Путь это путь. Епрст, да прочтите примеры для File::Find!!!

ok, я хочу найти все файлы по маске «^/.i./.*\.so$». В FHS под это условие попадают только файлы в директориях /bin и /lib. Зачем мне вообще проверять файлы, например в /usr, если они заведомо не подходят?

ack

ack

А теперь с тем же условием найди файлы на макоси. Что ты сделаешь? Верно получишь список директорий корня. Или на винде, пусть диск по умолчанию «C:», но тут нет ни lib, ни bin. Вообще нихера нет. Компьютер делает то, что говорят. И твое условие-регепс говорит: фигачь от корня. А если ты явно скажешь ищи в /bin, в /etc, то это даст другие результаты вне зависимости от ОС. На линухе найдет, на маке в /lib может и найдет что, для /bin выкинет ошибку; и на винде в обоих случаях выкинет ошибку.

Вобщем твоя задача «телепата» делается одной функцией, которая сначала берет регепс как текстовую строку, дальше пытается сопоставить с известными/просканированными/списком директорий. После вырезает ее, подсовывает в find(или аналог) как часть пути, дальше ищет по регепсу для файлов/директорий. При необходимости сделать н-рекурсий.

И это должен делать ты. Написать говно-функцию такую может почти каждый. Написать такую функцию без изъянов и эксплойтов, а также туевой тучой правил как писать запрос — не каждый и не каждому понравиться, что надо экранировать дофига символов.

Про совместимость я ничего не говорил, у меня скрипт завязан на *nix(системный мониторинг).

Уже кое-что накостылял, вполне ищет так:

Режем регексп по '/', сохраняем в массив вида:

   /var
   /var/log
   /var/log/pacman\..*

Пока вижу проблему в том, что часть регекспа может соответствовать нескольким директориям подряд, вроде

   /var/.*/[a-z]\.log

find2perl

$ find2perl / -name «\w+\d\.\d+»

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;



# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/');
exit;


sub wanted {
    /^\w\+\d\\.\d\+\z/s
    && print("$name\n");
}

Спасибо, я умею пользоваться File::Find.

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