如何在CentOS系统中使用copendir

在 CentOS 系统中，copendir 是一个用于创建一个目录结构，并将源目录的内容复制到新目录结构的函数

1. 首先，确保已经安装了 copendir 函数。如果没有安装，可以使用以下命令安装：

sudo yum install epel-release
sudo yum install perl

2. 创建一个名为 copydir.pl 的脚本文件，并将以下内容粘贴到文件中：

#!/usr/bin/perl
use strict;
use warnings;

# 检查参数数量
if (@ARGV != 2) {
    die "Usage: $0 <source_dir> <destination_dir>\n";
}

my $source_dir = $ARGV[0];
my $destination_dir = $ARGV[1];

# 检查源目录是否存在
if (!-d $source_dir) {
    die "Source directory does not exist: $source_dir\n";
}

# 如果目标目录不存在，则创建它
if (!-d $destination_dir) {
    mkdir($destination_dir, 0755) or die "Failed to create destination directory: $destination_dir\n";
}

# 使用 copendir 函数复制目录结构
copendir($source_dir, $destination_dir) or die "Failed to copy directory structure from $source_dir to $destination_dir\n";

print "Directory structure copied from $source_dir to $destination_dir successfully.\n";

3. 为脚本文件添加可执行权限：

chmod +x copydir.pl

4. 现在，你可以运行这个脚本来复制目录结构了。例如，如果你想将 /home/user/source 目录复制到 /home/user/destination，可以运行以下命令：

./copydir.pl /home/user/source /home/user/destination

这将创建一个新的目录结构，并将源目录的内容复制到新目录中。