在 macOS 上创建符号链接的合并文件夹

Question

我正在尝试使用下面的 perl 脚本从三个位置创建所有文件夹的符号链接。 我想要的结果是这样的：

来源
/TV720/GoT/Season00/

/TV1080/GoT/第一季/

/TV2160/GoT/第 02 季/

目的地（符号链接）

/TV/GoT/第 00 季/

/TV/GoT/第 01 季/

/TV/GoT/第 02 季/

但是，当我运行脚本时，我得到：/TV/GoT/Season00/ 没有在其他来源中找到的其他文件夹。

在重复文件夹名称的情况下，第二个和第三个源位置子文件夹似乎没有符号链接和合并。

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

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

foreach my $currentSource (@sourceList) {

    opendir SDIR, $currentSource  or do {
    warn "$0: can't opendir $currentSource: $!\n";
    next;
    };
    my @sourceFolders = grep { not /^\.{1,2}$/ } readdir SDIR;
    closedir SDIR;

    foreach my $currentFolder (sort @sourceFolders) {

    my $fromPath = $currentSource     . '/' . $currentFolder;
    my $toPath   = $destinationFolder . '/' . $currentFolder;

    if (not -e $toPath) {
        # print "Creating $toPath as symlink to $fromPath\n";
        symlink $fromPath, $toPath
        or warn "$0: can't symlink $toPath to $fromPath: $!\n";
    }
    }
}

Answer 1

鉴于以上信息，您可能能够通过文件系统上的联合挂载来完成您想要的操作。 您可以在此处将目录覆盖在其他目录之上。 它肯定比符号链接更高级，但它可能会做你想做的事。

如果您想继续使用符号链接，我建议您修改脚本以循环遍历您的源代码并递归迭代每个目录中的子文件夹。

然后对于每个子文件夹，在目标中创建一个实际的新文件夹，然后迭代源子文件夹中的文件并分别对每个文件进行符号链接。