一个带路径复制的perl脚本-创新互联
0)~/
创新互联-专业网站定制、快速模板网站建设、高性价比万荣网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式万荣网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖万荣地区。费用合理售后完善，十余年实体公司更值得信赖。test/perl$ cat pathcp.pl
#!/usr/bin/perl
use strict;
use File::Basename;
use File::Path;
use File::Spec::Functions;
use File::Copy;
sub xcp {
my ($dest_dir, $src_file, $keep_path) = @ARGV;
my $raw_file = substr($src_file, length($keep_path));
my $base = basename($raw_file);
my $dir = dirname($raw_file);
$dest_dir = catfile($dest_dir, $dir);
eval{mkpath($dest_dir) unless (-d $dest_dir)} || die "failed to mkpath [$dest_dir]";
copy($src_file, $dest_dir) || die "failed to copy file [$src_file]";
}
xcp @ARGV;
__END__
perl pathcp.pl m/n/o/p a/b/c/d/e/f.txt a/b/
xcp m/n/o/p a/b/c/d/e/f.txt a/b/ xiaoqing找我说，怎么能复制的时候带部分路径。复制，路径，部分，三个关键词。关于File这一族的模块，好久不用了，很是生疏。
当前名称：一个带路径复制的perl脚本-创新互联
文章起源：
http://ybzwz.com/article/pegpj.html
