用于符号链接的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 不进行任何系统检查,因此它不会解析符号链接.