[Perl][文件操做]判斷文件是否爲符號連接(Unicode路徑)

時間 2019-12-11

標籤 perl 文件判斷是否符號連接 unicode 路徑欄目 Perl 简体版

原文原文鏈接

Win32::Unicode 好像沒法作這方面的判斷，只能判斷是否爲目錄、文件、文件是否存在。
Win32API::File 則支持 GetFileAttributesWcode

GetFileAttributes 的返回值常量列表，可參考 MSDN 官方文檔：
https://msdn.microsoft.com/en-us/library/gg258117(v=vs.85).aspx
Code: [全選] [展開/收縮] [Download] (Untitled.pl)文檔

use utf8;
use Encode;
use Win32API::File qw(:ALL);
 
my $path = "D:\\Extra\\中文";
my $code = GetFileAttributesW( encode('utf16-le', $path) ."\x00\x00"  );
if ( ($code & FILE_ATTRIBUTE_REPARSE_POINT) == FILE_ATTRIBUTE_REPARSE_POINT)
{
    print "$code, symbolic link\n";
}