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

codyzhang · 发布于 2010年11月04日 · 189 次阅读
96

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

共收到 1 条回复
96
scmroad · #1 · 2010年11月04日

支持原创

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册