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://scpingwu.com/article/pegpj.html