perl如何复制整个文件夹？
请问perl如何复制整个文件夹？（包括文件夹内的所有子文件夹及文件，并且如果目录文件夹已有与源文件或文件夹同名的文件或文件夹，则覆盖处理。）
注意：是perl，而不是shell或其它，因为我是在NT平台服务器下。另外，如果能通过函数实现，还请贴出函数代码！
十分感谢！

[解决办法]
File::Copy::Recursive
http://kobesearch.cpan.org/htdocs/File-Copy-Recursive/File/Copy/Recursive.html
[解决办法]
<楼主>：
1楼的答案我试着做了，但好像提示我需要在perl的环境变量的目录下（比如D:\perl\bin）需要有这个Recursive.pm这个文件包，而我试着搜索了一下，却没有找着这个包，应该如何是好呢？
[解决办法]
1.http://search.cpan.org
2.搜索File::Copy::Recursive
3.download
4.安装
或者
perl -MCPAN -e install "install File::Copy::Recursive"
[解决办法]
<楼主>：
我试着用了一下3楼的“perl -MCPAN -e install "install File::Copy::Recursive"”安装，在是否手动配置的确认提示下选择了“N”，结果还是不行！

源程序：

Perl code

#!/usr/bin/perl 
  
 use strict; 
 use File::Copy::Recursive qw(dircopy); 
  
 my $source_dir="\\aa\\bb\\tttt"; 
 my $target_dir="\\aa\\bb\\rrrr"; 
  
 my $copy_ret=dircopy($source_dir,$target_dir) or die $!;

运行时提示：
Can't locate File/Copy/Recursive.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/
site/lib .) at cp_to_other_server.pl line 5.
BEGIN failed--compilation aborted at cp_dir.pl line 4.
[解决办法]
windows下，要用ppm安装包。
[解决办法]
学习了，
[解决办法]

探讨

windows下，要用ppm安装包。

[解决办法]

探讨

windows下，要用ppm安装包。

[解决办法]
应该有关系，我用这种方式安装的模块，都可以正常使用的
[解决办法]

引用

我没有下载任何包，直接运行了“perl -MCPAN -e install "install File::Copy::Recursive"”，并且在安装的过程中提示是否配置时选择了“否”，跟这个有关系吗？

[解决办法]
下载地址：http://ppm4.activestate.com/idx/FA...FI.html
1.找到File-Copy-Recursive
2.选择适合的版本
[解决办法]

探讨

下载地址：http://ppm4.activestate.com/idx/FA...FI.html
1.找到File-Copy-Recursive
2.选择适合的版本

[解决办法]
It is enough to run ppm directly like -

Perl code

ppm install File::Copy::Recursive
[解决办法]
No need to know were you only install a module or two, just run ppm from command line -

Perl code
ppm install My::Module
[解决办法]
ppm的图形用户界面有搜索的功能。
[解决办法]
<楼主>：
所有的办法都试了，还是不行，还有人有其它办法吗？
[解决办法]
<楼主>：
多谢版主，因为这个问题是我新申请ID后的第一个问题，所以没有分可以给！
继续期待高人的指点……

------解决方案-------------------- 
 
<楼主>：
很不甘心这个贴子就这样沉下去，希望能有高人出来指点……
[解决办法]
用
Perl code
`xcopy /c /h /e /r /k /y 源文件夹\*.* 目标文件夹\*.*`