perl 如何将当前目录下的目录复制到其它的目录！
2个回答
展开全部
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 $!;
}
}
# 试试看吧，是不是你要的
use Cwd;
user File::Copy;
my $curPath = getcwd;
my $destPath = ""; # 目标目录
foreach my $dir(<*>){
if(-d $dir){
move "$curPath/$dir", "$destPath/$dir" or die $!;
}
}
# 试试看吧，是不是你要的
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
追问
全是英语，看得不太懂，可以写一条语句给我参考下吗？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
