perl得到文件夹下所有文件名（转）

---------------------------------------------------------------
调用系统命令dir或者ls,将其输出再放入一个数组就可以了.
---------------------------------------------------------------
opendir(DIR,$dir_name) || die "Can't open directory $dir_name";
@dots = readdir(DIR);
foreach (@dots){
??????? print;
??????? print "/n";
}
closedir DIR;
----------------------------------------------------------------
还有一种方法可以获得一个目录下所有的目录和文件名,例如：
my @files=glob("c://*");
但是和上面打开目录的方法有区别,打开目录读取后是纯粹的目录和文件名
glob所获得的目录和文件名带有路径，是全路径文件和目录名。
如果使用当前目录则可以：
my @files=glob("*");
这样获得的目录和文件名不包括路径。
在使用中可以根据自己的目的加以选择

?

------------------------------------------------------------------

?

my $dir_name="/data/testdata"; my @files=glob("/data/*"); foreach (@files){ ??????? print; ??????? print "/n"; }