Perl 如何查看 Windows 快捷方式指向的位置？

Posted 2023-03-24

【中文标题】Perl 如何查看 Windows 快捷方式指向的位置？

【英文标题】：How can Perl see where a Windows shortcut points to?

【发布时间】：2021-05-22 12:25:29

【问题描述】：

在 Windows 中，如何检查快捷方式文件指向的位置？在下面的简单代码中，readlink 不显示任何内容：

$dir = 's:\\aaaaa\\bbb';
.....
@img = readdir F;
@lnk = grep/lnk$/ @img;
......
......

foreach (@lnk)
    $where = readlink $dir.$_;
    $a=$a;

【参考方案1】：

根据perlport，readlink 未在 Windows 上实现。相反，您可以使用Win32::Shortcut 来读取快捷方式.lnk 文件：

use strict;
use warnings;
use feature qw(say);
use Win32::Shortcut;
my $link = Win32::Shortcut->new();
$link->Load("test.lnk");
say "Shortcut to: $link->'Path' $link->'Arguments'";
$link->Close();