当前位置: 技术问答>linux和unix
cp命令怎样不复制目录
来源: 互联网 发布时间：2016-04-11
本文导语: cp命令怎样不复制目录,只递归复制其目录下的所有文件,同样目录也不复制,要带什么参数? | use strict; use warnings; use File::Copy; sub ransack { #参数:dir,@files my ...
cp命令怎样不复制目录,只递归复制其目录下的所有文件,同样目录也不复制,要带什么参数?
|
use strict;
use warnings;
use File::Copy;
sub ransack
{
#参数:dir,@files
my $dir=shift;
my $files=shift;
my @array=glob("$dir\*");
foreach my $item (@array)
{
if(-d $item)
{
ransack($item,$files);
}
else
{
$files->[@$files]=$item;
}
}
}
my @files;
ransack($ARGV[0],@files);
foreach (@files)
{
print("复制 $_ 到 $ARGV[1]n");
copy($_,$ARGV[1]);
}
将上述脚本保存成copy.pl文件，然后执行perl copy.pl srcdir destdir
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。