Perl Perl 列出文件夹下所有目录 ,不显示文件 (原创)

codyzhang · 2010年11月04日 · 2 次阅读

作者: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 编辑 ]

需要 登录 后方可回复。