Поиск в множестве шаблонов по конкретному образцу

File::Find

И добавь тег 'perl'

Хорошо, но тут не важен язык программирования

Но код ведь не перле ? :)

Возникает проблема: как найти шаблон app/bin/* для файла app/bin/prog?

А если примерно так:

mask =~ s/\*/[^\\\/]*/g; # вместо 'app/bin/*' будет 'app/bin/[^\/]*'
my $re = qr/$mask/;

if ( $filename =~ $re ) {
    # ы?
}

З.Ы. возможно, стоит посмотреть в сторону cfengine, puppet, chef, ansible

З.З.Ы. именно такой кусок кода, как в твоём примере, осчастливит пользователей публично доступным /etc/shadow, файлами с паролями. И плюс неработающим входом по ssh ключам

Спасибо, вариант. Единственное, что беспокоит — это зависимость времени исполнения от размера хеша исключений. (т.е. ка)

По моим скромным подсчётам это ограничено сверху O(n * m), где n — количество файлов, m — количество исключений. Хорошо бы сделать хотя бы O(n * log(m)) (а в идеале O(n)).

З.З.Ы. именно такой кусок кода, как в твоём примере, осчастливит пользователей публично доступным /etc/shadow, файлами с паролями. И плюс неработающим входом по ssh ключам

Проверять мне надо только файлы конкретного приложения, да и в шапке пример лишь для понятности :)

как найти шаблон app/bin/* для файла app/bin/prog?

Если нужно перебирать все файлы, то можно сделать ключи хеша регекспами:

my %specific_rights = (
    qr'app/bin/.*' => {}
);

Если нужно не для все файлов, то можно запрашивать файлы по glob:

while(my $f=glob $glob){...}

У меня в костыле для мониторинга есть удобная штука для проверки соответствия аттрибутов файлов прямо из конфига вроде такого:

files_teewgl=>{
        glob=>'/var/www/tee/wgl/json/*',
        size=>[500,512,20*2**20,30*2**20],
        count=>[400,450,600,700],
        perm=>'0755'
}

Хорошо бы сделать хотя бы O(n * log(m)) (а в идеале O(n)).

Можно сделать вложенный хеш

my %specific_rights = (
    'app'=>{
        'bin'=>{
            owner => 'root',
            group => 'root',
            mode  => '0755'
        }
    }
);

Спасибо, неплохой подход. Надо попробовать