perl – 按模式过滤文件名

我需要搜索以特定模式开头的目录中的文件,比如说“abc”.我还需要消除结果中以“.xh”结尾的所有文件.我不知道如何在Perl中做到这一点.

我有这样的事情:

opendir(MYDIR, $newpath);
my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK

我还需要从结果中删除所有以“.xh”结尾的文件

谢谢,毕

尝试

@files = grep {!/\.xh$/} <$MYDIR/abc*>;

其中MYDIR是一个包含目录路径的字符串.

翻译自:https://stackoverflow.com/questions/983643/filter-filenames-by-pattern

转载注明原文:perl – 按模式过滤文件名