遍历文件夹的方法比较。

helbreathszw

既然C强悍，就直接用inline::C
发挥你所长，走适合自己的路线，perl就是一个胶水语言

福瑞哈哥

原帖由 perlpg 于 2007-3-11 00:05 发表


地上的大多可能是C写的，登月的基本就是汇编写的了。前一段时间看了一段新闻，说美国宇航局专门派人到某电子废物处理中心买了一货柜旧电子产品，目的就是拆其中的8086来备用，因为现有的航天飞机和各种型号的 ...

美国在1961年开始阿波罗登月计划，于1969年首次登上月球。C语言的第一次发展在1969到1973之间。因此登月计划肯定与C无关。那时候的高级语言是cobol，lisp，都很强悍，再次高级一点的语言是fortran。

among29

支持楼主
there is more than one way to do it !

shhgs

open DIRS, "find . -type d | ";

ulmer

原帖由 shhgs 于 2007-3-11 23:24 发表
open DIRS, "find . -type d | ";

Platform unfriendly when for processing a directory recursively.

ulmer

1. 
   
2. sub scanDir {
   
3.     my $dir = shift;
   
4.     if (-d $dir) {
   
5.         # perldoc -f opendir
   
6.         # If DIRHANDLE is an undefined scalar variable (or array or hash
   
7.         # element), the variable is assigned a reference to a new anonymous
   
8.         # dirhandle.
   
9.         my $DH;
   
10.         opendir $DH, $dir or warn "Couldn't open directory $dir: $!;
    
11.         while (my $file = readdir $DH) {
    
12.             next if $file eq '.' || $file eq '..';
    
13.             my $fullFileName = $dir . '/' . $file;
    
14.             # process dir/file
    
15.             print $fullFileName, "\n";
    
16.             # recursive
    
17.             scanDir($fullFileName);
    
18.         }
    
19.     }
    
20. }
    
21. 
    
22. scanDir($ARGV[0] ? $ARGV[0] : '.');
    

复制代码

-- ulmer

__lxmxn__

兄第9行最后掉了一个双引号(")，提示一下~ ^_^

isaachs

又见ulmer牛

liklone

很好很强大 :wink:

camby

请教一下，filehandle 为什么用local，
比用my有什么好处。