Perlでファイルをサブディレクトリごとコピーする

1
2
3
4
5
6
use strict;
use warnings;
use File::Copy::Recursive qw(rcopy);
my $from_dir = ".";
my $to_dir   = "/temp";
rcopy($from_dir, $to_dir);
1
2
3
4
5
6
7
use warnings;
use strict;
use File::Copy::Recursive qw(rcopy);
use Path::Class;
my $from_dir = dir(".");
my $to_dir   = dir("", "temp");
rcopy($from_dir, $to_dir);

Comments

comments powered by Disqus