perl怎么复制整个文件夹
展开全部
perl复制整个文件夹的方法
use strict;
use Cwd;
user File::Copy;
my $curPath = getcwd;
my $destPath = ""; # 目标目录
foreach my $dir(<*>){
if(-d $dir){
move "$curPath/$dir", "$destPath/$dir" or die $!;
}
}
# 试试看吧，是不是你要的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
