symlink फ़ाइल के लिए पूर्ण पथ कैसे प्राप्त करें?

Question

# परीक्षण> a.pl

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

कैसे सिमलिंक फ़ाइल के लिए निरपेक्ष पथ प्राप्त करने के लिए?

Answer 1

Cwdabs_path द्वारा इस तरह के सुविधा प्रदान करता है के लिए एक सिमलिंक है मिलेगा साथ फ़ाइल :: युक्ति rel2abs का उपयोग करें।

#!/usr/bin/perl -w 

use Cwd 'abs_path'; 

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

Answer 2

आप के साथ readlink आप पेट पथ भले ही यह एक और सिमलिंक

use File::Spec; 

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

Answer 3

ये सभी गलत, परीक्षण और सही तरीके से देखें। this link

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