«отслеживание» версии readlink (1)

Question

Мне нужна версия «readlink -f», которая обеспечивает следы каждого отдельного разрешения символической ссылки, которое она выполняет. Что-то вроде:

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

Я знаю, что я использовал эту утилиту в прошлом, на Linux, а также помнить, в то время мышления «название этого инструмента является полностью неинтуитивным, и я не забуду». Ну, этот день настал.

Answer 1

NOBODY WINS. Правильный ответ - «имя».

Answer 2

This Serverfault answer (in Bash) может быть полезен (хотя он не претендует на то, чтобы обрабатывать все краевые случаи).

Answer 3

Code golf any?

#!/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"; 

Ok, как об этом:

#!/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); 

Выходной сигнал не совсем так, как описано, но это понятно. И выкопайте эту верную рекурсивную замену регулярного выражения!