用于符号链接的Perl替代Cwd :: abs_path

Question

我的Perl应用程序接收文件和参数的相对路径，然后将它们转换为绝对路径。我一直在使用Cwd::abs_path($fileName)，但现在我需要支持符号链接，我发现abs_path将为我提供原始文件的绝对路径。

我需要的是Cwd::abs_path的替代方法，当给定符号链接的相对路径时，它会将其转换为同一符号链接的绝对路径。有什么建议吗？

示例：

/originals/myfile1
/links/myfile1link -> /originals/myfile1

> cd /links
> perl converter.pl /myfile1link
> output: /links/myfile1link

Answer 1

File::Spec->rel2abs不进行任何系统检查，因此无法解析符号链接。