如何使用Perl在目录中搜索特定文件？

Question

我在目录中有一个文件,我想一次从目录中选择一个特定的文件.

代码如下:

$xml_file_name = <STDIN>;
chomp ($xml_file_name);

@o = file_search($xml_file_name);
print "file::@o\n";

sub file_search
{
    opendir (DIR, "/home/sait11/Desktop/test/Test cases") or die "Failed to open directory\n";
    @dirs_found = grep { /$xml_file_name/ } readdir DIR;
    closedir (DIR);
#   print "dir ::@dirs_found\n";
    return @dirs_found;
}

我正在输入要返回的文件名sample.xml.但是在@dirs_found变量中,所有以's'开头的文件名都会被存储.

如何一次找出确切的一个文件？

Answer 1

要查找特定文件,只需打开文件,或对其运行文件测试:

my $file = "/home/sait11/Desktop/test/Test cases/$xml_file_name";

print "$file found\n" if -f $file;

运行你的代码,它似乎肯定有效.如果输入模式,则它会正确地从目标目录中选择与您键入的Perl正则表达式匹配的文件名.您要查找的名称是什么？

如果您修改grep为:

my @dirs_found = grep { /^$xml_file_name$/ } readdir DIR;

然后它将排除正则表达式与整个名称不匹配的值.另一方面,当你这样做时,你会放弃一些灵活性.