2014年1月2日
通过perl获得F盘下的所有文件名
摘要： 1 $PATH="F://E-Book";2 opendir(DIR,$PATH);3 @array=readdir(DIR);4 close(DIR);5 foreach $fn(@array){6 if ($fn ne '.' and $fn ne '..') {7 print "$fn\n";8 }9 } 阅读全文
posted @ 2014-01-02 10:48 becodin 阅读(175) 评论(0) 推荐(1) 编辑