递归得到目录中的所有文件

 sub ransack      
{      
    #参数:dir,/@files      
    my     $dir=shift;      
    my     $files=shift;      
    my     @array=glob("$dir//*");      
    foreach     my     $item     (@array)      
    {      
        if(-d     $item)      
        {      
            ransack($item,$files);      
        }      
        else      
        {      
            $files->[@$files]=$item;      
        }      
    }      
}      
my   @files;  
ransack($ARGV[0],/@files);
foreach (@files)
{
 print("$_/n");
}