Perl：使用 Windows 进行目录复制

Question

所以我正在尝试编写一个脚本来将一个目录以及所有子目录和文件复制到另一个目录（使用 windows）。

我知道这个程序涉及不可靠的依赖项（例如 E: 驱动器可用）。

与我遇到的其他一些示例相比，我的脚本看起来非常简单（我不知道它是否会复制所有子文件和目录）。

我是 Perl 新手，如果这种事情超出了初学者的能力，请不要犹豫，告诉我。

我的脚本：

use 5.16.3;
use strict;

my $datestring = localtime();

my $orig="C:/Users/Simon/My Documents";
my $new="E:/Back Up/2014/$datestring";
use File::Copy::Recursive::dircopy $orig, $new or die "Copy failed: $!";

我确定的实际问题是：

第 8 行“$new or”附近的语法错误

寻找

1. 一个答案
2. 帮助我解决问题的资源

谢谢

Answer 1

需要先use 模块只是一个小错误：

use 5.16.3;
use strict;
use warnings;

# import the sub dircopy into your script
use File::Copy::Recursive qw(dircopy);

my $datestring = localtime();

my $orig = "C:/Users/Simon/My Documents";
my $new  = "E:/Back Up/2014/$datestring";

dircopy($orig, $new) or die "Copy failed: $!";