使用Perl获取文件名

Question

有一个名为* .iso的文件，其中*是任何字符串（点，数字，字母，拼写字符）。

* .iso位于/dm2/www/html/isos/preFCS5.3/

我想将此文件名设为$ filename。我知道这很简单。我怎么能在Perl中做到这一点？

Answer 1

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

了解更多信息：http://perldoc.perl.org/functions/glob.html

Answer 2

使用File::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$'
);