perl - 用 perl 中的文件副本覆盖符号链接(symbolic link)

Question

我以为我以前看过这个问题的答案，但在这里和谷歌搜索后，我找不到它。

如何用它指向的文件的副本替换现有的符号链接(symbolic link)？ IE 通过链接复制源文件。

从这个开始

/path/to/file.txt
/link/path/file.txt -> /path/to/file.txt

然后调用 copy('/path/to/file.txt', '/link/path/file.txt'); 之类的电话得到这个:

/path/to/file.txt
/link/path/file.txt

我不能只使用 copy() 的原因是它似乎不支持用其源文件覆盖符号链接(symbolic link)，因为它认为它们是同一件事并给出错误“XXXXX 和 YYYYY 相同(未复制)”

有没有像 copy 这样的方法可以用源文件的副本覆盖符号链接(symbolic link)？

Answer 1

我认为使用单个命令是不可能的。这是一个不涉及重命名的解决方案(您可能应该添加错误检查):

$linkLoc = readlink('/link/path/file.txt');
unlink('/link/path/file.txt');
copy($linkLoc, '/link/path/file.txt');

如果您发现自己经常这样做，您可能会发现将其包装在一个方便的函数中是值得的。