使用Unix readlink命令的Perl递归循环符号链接最终目的地

Posted 2021-02-24

Snippet obtained from Stackoverflow courtesy of [Loki Astari](http://stackoverflow.com/a/130428)

#!/usr/bin/perl
 
use strict;
 
while(chomp(my $file = <>))
{
        while(-l $file)
        {
                $file   = readlink $file;
        }
        print "$file
";
}