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

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(,/@files);
foreach (@files)
{
print("$_/n");
}
                                   转自 优快云