如何解析Perl中的符号链接?

首先,你确定你不想使用 ${JAVA_HOME} 环境变量?

您可以使用内置的来读取symlink目标 readlink() 功能。

要检查其他可能性,您可以将它们全部硬编码并逐个检查是否存在,请使用 opendir() / readdir() 内置或目标 IO::Dir 查找目录中的所有符号链接并检查它们是否匹配或模式,甚至 glob() 功能,在您的情况下可能更简单。

use Cwd 'abs_path';

$absFilePath = abs_path("$linkPath") ;

以下是链接文件或软链接文件的解决方案。通过递归解析所有链接,下面的代码段将给出链接的原始文件

#!/usr/bin/perl

use warnings;
use strict;

use File::Basename;

my $file='/dev/mapper/vg_ms1-lv_root'; #this should be your input
my $myCwd =`pwd`;
chomp($myCwd);

while ( -l $file ) {
    my $readLnk=readlink( $file );
    #print "$readLnk\n";
    my $directory = dirname( $file );
    my $fileName = basename( $file ); #not doing anything with this name
    #print "$directory\n";
    chdir($directory);
    my $linkPDir = dirname( $readLnk );
    chdir($linkPDir);
    my $next_file = basename( $readLnk );
    my $curDir=`pwd`;
    chomp($curDir);
    $file="$curDir"."/"."$next_file";
}

print "$file\n";
chdir($myCwd);