perl 复制 文件夹（windows下）

1.http://search.cpan.org
2.搜索File::Copy::Recursive

3.download

4:加压缩  （里面有Recursive.pm文件     把它复制到perl的安装目录下，层次关系  如左：D:/Perl/lib/File/copy/ Recursive.pm）

文件夹 复制

#!/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.

在D:/Perl/lib 下   创建 File文件夹，在File文件夹内部创建copy文件夹，  将Recursive.pm  复制到copy下  即可