readlink（1）の "tracing"バージョン

Question

"readlink -f"のバージョンでは、それが実行するすべてのシンボリックリンク解決のトレースを提供したいと思います。ような何か：

$ linktrace /usr/lib64/sendmail 
/usr/lib64 -> lib 
/usr/lib/sendmail -> ../sbin/sendmail 
/usr/sbin/sendmail 
$ 

私はLinux上で、過去にこのユーティリティを使用し、また「このツールの名前は完全に直感的であり、私はそれを忘れてしまう」思考時間に覚えている知っています。まあ、その日は到着しました。

Answer 1

NOBODY WINS。正解は "namei"です。

Answer 2

This Serverfault answer（Bashで）が役立つかもしれませんが（すべてのエッジケースを処理するとは言いませんが）

Answer 3

コードゴルフ誰ですか？ [OK]を

#!/usr/bin/perl 

use File::Spec; 
my $g; 
my $f = shift; 
while (1) { 
    print $f; 
    $g = readlink($f); 
    last unless defined $g; 
    printf " -> %s\n", $g; 
    $f =~ s,/[^/]*$,,; 
    $f = File::Spec->rel2abs($g, $f); 
} 
print "\n"; 

、これはどう：

#!/usr/bin/perl 

use File::Spec; 

sub r { 
    my ($p, $s) = @_; 
    my $l = readlink $p; 
    if ($l) { 
     printf "%s -> %s\n", $p, $l; 
     $p =~ s,/[^/]*$,,; 
     r("",File::Spec->rel2abs($l,$p) . $s) 
    } else { 
     $s =~ s!^(/?[^/]+)(.*)! r($p.$1, $2) !e; 
    } 
} 
r("",shift); 

出力がない、非常に説明したようですが、それは理解できるのです。そしてその狡猾な再帰実行可能な正規表現置換を掘り下げてください！