File::Copy 子文件夾的文件復(fù)制不了

ustbleetom

使用File::Find和File::Copy 把一個(gè)文件夾及子文件夾里的.pl文件復(fù)制到另外一個(gè)文件夾，路徑體現(xiàn)在目標(biāo)文件的文件名中。使用下邊的程序，只把當(dāng)前目錄里的.pl文件復(fù)制過去了，文件夾里的文件都沒有復(fù)制過去，這個(gè)是啥問題？感覺copy的參數(shù)沒有問題。

1. #!perl.exe
   
2. 
   
3. use File::Find;
   
4. use File::Copy;
   
5. 
   
6. my $dest_dir = "D:/new/";
   
7. 
   
8. find(\&wanted, '.');
   
9. 
   
10. sub wanted{
    
11.         unless (-d){
    
12.                 my $name = $File::Find::name;
    
13.                 my $origin = $name;
    
14.                 next unless $name =~ /.*\.pl$/;
    
15.                 $name =~ s/^\.\///;
    
16.                 $name =~ s/\//_/;
    
17.                 $name = $dest_dir . $name;
    
18.                 print "Origin: $origin \n";
    
19.                 print "Copy to $name \n";
    
20.                 print "result: ", copy($origin, $name) , "\n";
    
21.         }
    
22. }

復(fù)制代碼

結(jié)果是這樣的，子文件夾的都復(fù)制失敗了。是哪里出問題了呢？

1. Origin: ./pakage.pl
   
2. Copy to D:/new/pakage.pl
   
3. result: 1
   
4. Origin: ./webfetion.pl
   
5. Copy to D:/new/webfetion.pl
   
6. result: 1
   
7. Origin: ./wingui.pl
   
8. Copy to D:/new/wingui.pl
   
9. result: 1
   
10. Origin: ./gd/GDEx.pl
    
11. Copy to D:/new/gd_GDEx.pl
    
12. result:
    
13. Origin: ./intermidiatperl/c11-2.pl
    
14. Copy to D:/new/intermidiatperl_c11-2.pl
    
15. result:
    
16. Origin: ./intermidiatperl/c11.pl
    
17. Copy to D:/new/intermidiatperl_c11.pl
    
18. result:
    
19. Origin: ./intermidiatperl/c12.pl
    
20. Copy to D:/new/intermidiatperl_c12.pl
    
21. result:
    
22. Origin: ./intermidiatperl/c14e1.pl
    
23. Copy to D:/new/intermidiatperl_c14e1.pl
    
24. result:

復(fù)制代碼

ustbleetom

明白了，是current directory的問題