如何使用Perl查看Windows快捷方式的指向路径？解决readlink函数无效问题

首先得说明：你遇到的readlink返回空的问题很常见——Perl的readlink函数在Windows平台上，仅能识别NTFS文件系统的符号链接和Junction点，而我们日常使用的.lnk快捷方式是Windows Shell专属的文件格式，不属于Unix风格的软链接范畴，所以readlink完全无法解析它，自然返回空值。

下面给你两种实用的解决方法：

方法一：使用Win32::Shortcut模块（推荐） #

这是Perl专门为Windows快捷方式设计的模块，功能直接且稳定。如果你的Perl环境还没安装它，可以通过cpan Win32::Shortcut（或者ActivePerl的ppm工具）完成安装。

修正后的完整代码如下（顺便解决了你原代码中路径拼接的潜在问题）：

use strict;
use warnings;
use Win32::Shortcut;
use File::Spec;

my $dir = 's:\aaaaa\bbb';

# 安全打开目录
opendir my $dh, $dir or die "无法打开目录 $dir: $!";
# 过滤出所有.lnk文件（忽略大小写）
my @lnk = grep { /\.lnk$/i } readdir $dh;
closedir $dh;

foreach my $lnk_file (@lnk) {
    # 用File::Spec正确拼接路径，避免因目录末尾无反斜杠导致的错误
    my $full_lnk_path = File::Spec->catfile($dir, $lnk_file);
    
    my $shortcut = Win32::Shortcut->new();
    if ($shortcut->Load($full_lnk_path)) {
        # 读取快捷方式的目标路径
        my $target = $shortcut->{Path};
        print "快捷方式 $lnk_file 指向：$target\n";
        $shortcut->Close(); # 释放资源
    } else {
        warn "无法加载快捷方式 $full_lnk_path: $!";
    }
}

方法二：使用Windows COM对象（无需额外安装模块） #

如果不想安装第三方模块，可以借助Perl的Win32::OLE调用Windows系统自带的WScript.Shell对象来解析快捷方式：

use strict;
use warnings;
use Win32::OLE;
use File::Spec;

my $dir = 's:\aaaaa\bbb';

opendir my $dh, $dir or die "无法打开目录 $dir: $!";
my @lnk = grep { /\.lnk$/i } readdir $dh;
closedir $dh;

# 初始化WScript.Shell COM对象
my $shell = Win32::OLE->new('WScript.Shell') 
    or die "无法创建Shell对象: " . Win32::OLE->LastError();

foreach my $lnk_file (@lnk) {
    my $full_lnk_path = File::Spec->catfile($dir, $lnk_file);
    eval {
        # 加载快捷方式文件
        my $shortcut = $shell->CreateShortcut($full_lnk_path);
        # 获取目标路径
        my $target = $shortcut->{TargetPath};
        print "快捷方式 $lnk_file 指向：$target\n";
    };
    # 捕获处理过程中的错误
    if ($@) {
        warn "处理 $full_lnk_path 时出错: $@";
    }
}

另外提一句你原代码的小问题：直接用$dir.$_拼接路径容易出现错误（比如目录末尾没有反斜杠时，会变成s:\aaaaa\bbbshortcut.lnk），所以推荐用File::Spec->catfile来处理跨平台的路径拼接。

内容的提问来源于stack exchange，提问作者user13635677