macOS下创建合并符号链接文件夹的Perl脚本问题

需求与现象 #

• 期望从三个源路径创建符号链接到统一目标路径，实现如下映射：
  • 源：/TV720/GoT/Season00/ → 目标：/TV/GoT/Season00/
  • 源：/TV1080/GoT/Season01/ → 目标：/TV/GoT/Season01/
  • 源：/TV2160/GoT/Season02/ → 目标：/TV/GoT/Season02/
• 运行现有Perl脚本后，仅生成了/TV/GoT/Season00/，其余子文件夹未被链接，推测是同名父文件夹导致后续源的子目录未被处理。

原脚本问题分析 #

原脚本仅遍历一级目录，当处理第一个源的GoT文件夹时，会创建/TV/GoT符号链接指向/TV720/GoT。后续处理TV1080和TV2160的GoT文件夹时，因为/TV/GoT已存在，脚本直接跳过，完全没有处理GoT内部的Season01、Season02子目录，最终导致只有第一个源的子文件夹被链接。

修正方案：递归处理目录层级 #

需要递归遍历所有源目录的层级，遇到目标路径已存在时，若为目录（或指向目录的符号链接），则进入该目录继续处理子项，而不是直接跳过。以下是修正后的脚本：

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;

my @sourceList = (
    "/Volumes/Disk/TV720",
    "/Volumes/Disk/TV1080",
    "/Volumes/Disk/TV2160",
);
my $destinationFolder = "/Volumes/Disk/TV";

# 递归处理目录的子项
sub process_directory {
    my ($source_dir, $dest_dir) = @_;

    # 打开源目录
    opendir my $sdir, $source_dir or do {
        warn "$0: 无法打开目录 $source_dir: $!\n";
        return;
    };
    my @items = grep { not /^\.{1,2}$/ } readdir $sdir;
    closedir $sdir;

    foreach my $item (sort @items) {
        my $source_path = File::Spec->catfile($source_dir, $item);
        my $dest_path = File::Spec->catfile($dest_dir, $item);

        # 如果是目录
        if (-d $source_path) {
            if (-e $dest_path) {
                # 目标已存在，检查是否为目录或指向目录的符号链接
                if (-d $dest_path) {
                    # 递归处理子目录
                    process_directory($source_path, $dest_path);
                } else {
                    warn "$0: $dest_path 已存在且不是目录，跳过\n";
                }
            } else {
                # 创建符号链接
                symlink $source_path, $dest_path or do {
                    warn "$0: 无法创建符号链接 $dest_path → $source_path: $!\n";
                };
            }
        }
        # 如需处理文件，可在此添加逻辑
    }
}

# 遍历所有源路径，启动递归处理
foreach my $source_root (@sourceList) {
    process_directory($source_root, $destinationFolder);
}

说明 #

• 使用File::Spec模块拼接路径，避免手动拼接时的平台兼容性问题
• 递归函数process_directory会逐层处理目录：
  1. 若目标路径不存在，直接创建符号链接
  2. 若目标路径已存在且为目录（或符号链接指向目录），则进入该目录继续处理子项
  3. 若目标存在但不是目录，抛出警告并跳过

内容的提问来源于stack exchange，提问作者Ben