Получение имени файла с использованием Perl

Question

Существует файл с именем * .iso, где * - любая строка (точка, цифры, алфавиты, символы spl).

*. Iso находится по адресу /dm2/www/html/isos/preFCS5.3/

Я хочу получить это имя файла в $ filename. Я знаю, это очень просто. Как я могу сделать это в Perl?

Answer 1

Использовать Файл :: Util

use strict;
use warnings;
use File::Util;

my $file_util = File::Util->new;
my $base = '/dm2/www/html/isos/preFCS5.3/';
my @isos = $file_util->list_dir(
    $base,
    '--recurse',
    '--files-only',
    '--pattern=\.iso$'
);

Answer 2

my($filename) = glob('/dm2/www/html/isos/preFCS5.3/*.iso');

Для получения дополнительной информации: http://perldoc.perl.org/functions/glob.html