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