Perl 将一个目录下的所有内容copy 到另外一个目录下

将当前util目录下所有目录或文件拷贝到test目录下

#!/usr/bin/perl

use warnings;
use strict;
use File::Copy::Recursive qw(dircopy);
dircopy("./util","./test") or die $!

 

参考:File::Copy::Recursive

http://kobesearch.cpan.org/htdocs/File-Copy-Recursive/File/Copy/Recursive.html

 

 

http://hi.baidu.com/ewayfly/blog/item/f028afaf218b17d97cd92aee.html