如何方便读取当前目录下所有文件？

cobrawgl

11^# cobrawgl 发表于 2008-07-18 13:25

Rush_2008

12^# Rush_2008 发表于 2008-07-18 14:41

while(<>){
}

这样读挺方便的啊。

jidixuelang

13^# jidixuelang 发表于 2008-07-19 15:23

use File::Find;

finddepth sub {
open(NOWFILE,$File::Find::name);
print while(<NOWFILE>);
close(NOWFILE);
},'d:/phproot/perl/grup/';