perl - perl中如何将文件夹从一个目录复制到另一个目录？

Question

我想将文件夹从一个目录复制到另一个目录。

例如我在 D 驱动器中有一个像 Sample it 这样的文件夹，它本身包含许多文件夹。我想将此示例文件夹及其子文件夹复制到其他驱动器。在这里我做了一些事情，但它只复制文件。

#!/usr/bin/env perl

use strict;
use warnings;
use File::Copy,

my $source_dir = "aa";
my $target_dir = "bb";

opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!";  
my @files = readdir($DIR);

foreach my $t (@files)
{
   if(-f "$source_dir/$t" ) {
      #Check with -f only for files (no directories)
      copy "$source_dir/$t", "$target_dir/$t";
   }
}

closedir($DIR);

请帮忙解决...

提前致谢

Answer 1

您需要使用 File::Copy::Recursive模块，它有许多相关的函数，您可能需要其中的dircopy；或File::Mirror模块，它有一个与 dircopy 功能相同的 mirror 函数，以及一个允许您提供代码块来控制的 recursive 函数节点将如何被复制。