复制文件到其他目录window,附自己十分绕的小白程序，希望大家提提意见！

54red

就是在windows 下把一个文件夹下的所有子文件夹里的某些文件复制到一个文件夹。
举个例子：
haha/files/
               files_1
               files_2
               files_3


                files_1/Variants/002_S33/
                                                    file1.txt
                                                     file2.txt

就是打算把haha/files/files_1/Variants/002_S33/的两个txt 复制到haha/files下面

---------------------------我是垃圾程序的分隔线-----------------

use File::Copy;
use Cwd;

my $dir = getcwd;                 #haha/files
my @dir = glob ($dir."\/*");
foreach my $file(@dir)
{   
        if (-d $file) {        
           my $cp_file=$file."\/Variants\/*\/";
           my @test = glob ( $cp_file."\/*");         
           foreach my $file_1 (@test) {
           copy($file_1,$dir) or die "Copy failed: $!";
            }
}
}

还有一个问题，这个程序在文件夹名字有空格的时候不能用，我还没解决，求帮忙！！！

yybmsrs

目录空格可以用File::Glob模块来解决，整个的处理流程可以用File::Find来代替