通过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)  编辑  收藏  举报