我有这样的事情：
opendir(MYDIR,$newpath); my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK
我还需要从结果中删除所有以“.xh”结尾的文件
谢谢,毕
@files = grep {!/\.xh$/} <$MYDIR/abc*>;
其中MYDIR是一个包含目录路径的字符串.
