復(fù)制文件到其他目錄window,附自己十分繞的小白程序，希望大家提提意見(jiàn)！

54red

就是在windows 下把一個(gè)文件夾下的所有子文件夾里的某些文件復(fù)制到一個(gè)文件夾。
舉個(gè)例子：
haha/files/
               files_1
               files_2
               files_3


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

就是打算把haha/files/files_1/Variants/002_S33/的兩個(gè)txt 復(fù)制到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: $!";
            }
}
}

還有一個(gè)問(wèn)題，這個(gè)程序在文件夾名字有空格的時(shí)候不能用，我還沒(méi)解決，求幫忙�。�！

yybmsrs

目錄空格可以用File::Glob模塊來(lái)解決，整個(gè)的處理流程可以用File::Find來(lái)代替