В этой статье блога мы рассмотрим различные методы загрузки файлов из каталога Perl, соответствующих определенному шаблону. Мы предоставим вам практические примеры кода и объясним каждый подход разговорным языком. Давайте погрузимся!

Метод 1: использование функции glob
Функция glob в Perl позволяет получить список имен файлов, соответствующих заданному шаблону. Вот пример, в котором все файлы с расширением «.txt» загружаются из каталога:

my @files = glob("/path/to/directory/*.txt");
foreach my $file (@files) {
    # Process the file as needed
}

Метод 2: использование функций opendir и readdir
Функции opendir и readdir предоставляют альтернативный способ загрузки файлов из каталога. Вот пример, который загружает все файлы, соответствующие шаблону, с помощью регулярных выражений:

opendir(my $dh, "/path/to/directory") or die "Failed to open directory: $!";
my @files = grep { /pattern/ } readdir($dh);
closedir($dh);
foreach my $file (@files) {
    # Process the file as needed
}

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

use File::Find;
sub process_file {
    my $file = $File::Find::name;
    if (-f $file && $file =~ /pattern/) {
        # Process the file as needed
    }
}
find(\&process_file, "/path/to/directory");

.

Метод 4: использование модуля Path::Tiny
Path::Tiny — удобный модуль для манипуляций с файлами и каталогами. Вот пример, который загружает все файлы, соответствующие шаблону, с помощью Path::Tiny:

use Path::Tiny;
my $dir = path("/path/to/directory");
my @files = $dir->children(qr/pattern/);
foreach my $file (@files) {
    # Process the file as needed
}

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