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

【问题标题】：How can Perl see where a Windows shortcut points to?Perl 如何查看 Windows 快捷方式指向的位置？
【发布时间】：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;
}

【问题讨论】：

标签： windows perl

【解决方案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();

【讨论】：