如何获取符号链接文件的绝对路径？

Question

#test-＆gt; a.pl

my $file = '/home/joe/test';
if ( -f $file && -l $file )  {
    print readlink( $file ) ;
}

如何获取符号链接文件的绝对路径？

Answer 1

Cwd通过abs_path提供此类功能。

#!/usr/bin/perl -w

use Cwd 'abs_path';

my $file='/home/joe/test';
if( -f $file && -l $file ) {
    print abs_path($file);
}

Answer 2

如果你使用File :: Spec rel2abs和readlink你将得到abs路径，即使它是另一个符号链接的符号链接

use File::Spec;

$path = File::Spec->rel2abs( readlink($file) ) ;