作者：CodyZhang[size=0px]+ f) y; I( i6 o6 M l 出自：配置管理之路 http://bbs.scmroad.com 版权所有，转载请注明作者，出处和此版权声明，谢谢合作

#!/usr/bin/perl opendir(TMP,'c:/')||die "can not open c:/:$!"; @files=grep(!/.[a-zA-Z]*$/,readdir TMP); foreach $a(@files){ print $a."\n"; } closedir TMP;

[[i] 本帖最后由 codyzhang 于 2010-11-5 11:24 编辑 ]