Perl - 在 Windows 10 下检测符号链接 [英] Perl - Detecting symbolic links under Windows 10

问题描述

我在支持符号链接的 Windows 10 下检测符号链接时遇到问题.首先我试过这个:

I have a problem with detecting symbolic links under Windows 10, which supports them. First I tried this:

if(! -l $import_filename) {
    print "$0: $import_filename is not a symlink";
}

那行不通.当 $import_filename 是一个符号链接时它会被执行.然后我尝试了这个:

That doesn't work. It gets executed when $import_filename is a symlink. Then I tried this:

use File::stat;
use Fcntl;

my $statbuf = lstat($import_filename);
if(!($statbuf->mode & S_ISLNK)) {
    print "$0: $import_filename is not a symlink";
}

而且说同样的话似乎是不同的方式.正如预期的那样，在具有符号链接/连接支持的 Windows 版本下，是否有任何幸运的方法可以做到这一点?如果没有，命令行工具也是可以接受的答案.

And it seems to be a different way to say the same thing. As expected, is there any blessed way to do this under Windows versions with symlink/junction support? If there isn't, a command line tool is also an acceptable answer.

推荐答案

Given

>mklink file_symlink file
symbolic link created for file_symlink <<===>> file

>mklink /d dir_symlink dir
symbolic link created for dir_symlink <<===>> dir

>mklink /h file_hardlink file
Hardlink created for file_hardlink <<===>> file

>mklink /j dir_hardlink dir
Junction created for dir_hardlink <<===>> dir

>dir
...
2018-05-09  12:59 AM    <JUNCTION>     dir_hardlink [C:\...\dir]
2018-05-09  12:58 AM    <SYMLINKD>     dir_symlink [dir]
2018-05-09  12:56 AM                 6 file_hardlink
2018-05-09  12:58 AM    <SYMLINK>      file_symlink [file]
...

您可以使用以下内容将 file_symlink、dir_symlink 和 dir_hardlink(但不是 file_hardlink)检测为链接:

You can use the following to detect file_symlink, dir_symlink and dir_hardlink (but not file_hardlink) as a link:

use Win32API::File qw( GetFileAttributes FILE_ATTRIBUTE_REPARSE_POINT );

my $is_link = GetFileAttributes($qfn) & FILE_ATTRIBUTE_REPARSE_POINT;

我不知道如何区分硬链接和符号链接(尽管可以使用 & FILE_ATTRIBUTE_DIRECTORY 来区分文件和目录).

I don't know how to distinguish between hard links and symlinks (though differentiating between files and dirs can be done using & FILE_ATTRIBUTE_DIRECTORY).

这篇关于Perl - 在 Windows 10 下检测符号链接的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！