perl - perlでネットワーク共有フォルダ内のファイルの属性を変更する方法は？

Question

ネットワーク共有フォルダ内のファイルの属性を非表示に変更する方法。
これはperlでどのように可能ですか？

Answer 1

use Win32::File qw( GetAttributes SetAttributes );

my $qfn = "\\\\server\\share\\dir\\file";
# or: "//server/share/dir/file"

GetAttributes($qfn, my $attrs) or die $^E;
$attrs |= Win32::File::HIDDEN;
SetAttributes($qfn, $attrs) or die $^E;

Win32::ファイル

ノート：

• 文書化されていませんが$^E、エラー時にエラー メッセージを提供する必要があります。
• Get-modify-set は、既存の属性の破壊を回避します。