使用Perl在Windows系统中创建文件夹并复制文件

本代码使用Perl语言在Windows系统中创建文件夹并复制文件，采用系统内置的Xcopy命令，实现简单高效。

use strict;
use warnings;

# 创建文件夹
my $dir = "D:\\test";
unless(-d $dir) {
    mkdir $dir or die "无法创建目录: $!";
}

# 复制文件
system("xcopy /y D:\\source\\*.* $dir");

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com