weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 57, 引用 - 0
数据加载中……

列出目录下的所有子目录和文件名

# !/usr/bin/perl -w

@files   =   < d :/*> ;

 print   join ( " \n------\n " ,   @files );

posted on 2006-08-14 17:36 weidagang2046 阅读(131) 评论(0)  编辑  收藏 所属分类: Perl




标题  
姓名  
主页
验证码 *  
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
 
 
相关链接:
网站导航: