cách lấy Đường dẫn tuyệt đối cho tệp liên kết tượng trưng?

Question

# Test-> a.pl

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

làm thế nào để có được đường dẫn tuyệt đối cho tập tin liên kết tượng trưng?

Answer 1

Cwd cung cấp chức năng này bằng cách 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

nếu bạn sử dụng File :: rel2abs Spec cùng với readlink bạn sẽ nhận được con đường abs ngay cả khi đó là một liên kết tượng trưng đến một liên kết tượng trưng

use File::Spec; 

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

Answer 3

Tất cả đều sai, nhìn vào kiểm tra và đúng cách. Xem this link

my $good = \`readlink -f $0\`;