Perl取得和修改檔案屬性（WIN32系統）

        有的時候我們會需要處理到檔案的一些屬性，比如說唯讀、隱藏之類的，

我這裡大概說下在WIN32下如何取得和修改檔案的屬性。

     需要： use Win32::File;

   然後使用如下方法：

   my $set;

#取得檔案的屬性
   Win32::File::GetAttributes($name, $set);

#設定檔案的屬性
   Win32::File::SetAttributes($name, ARCHIVE);

在perldoc裡，可供設定的屬性如下：

ARCHIVE 　封存檔案　３２　　　　　　　

COMPRESSED 　壓縮檔　２０４８

DIRECTORY 　目錄檔案　１６

HIDDEN 　　隱藏檔案　２

NORMAL 　正常檔案　１２８

OFFLINE 　離線檔案　４０９６

READONLY 　唯讀檔案　１

SYSTEM 　系統檔案　４

TEMPORARY 　臨時檔案　２５６

 

為了方面理解，我在程式裡把每個選項對應的數值都列印出來附在後面了，

每個選項都是只佔一位的，因此我們可以用或｜來同時應用多個屬性，如下：

 

Win32::File::SetAttributes($name, ARCHIVE｜ HIDDEN);

這樣你就發現你的檔案同時是隱藏和封存檔案了．＾＿＾

 轉載請保留以下資訊：
作者（Author）:smilelance
時間（ Time ）:2006.08.11

出處（ From ）:http://blog.csdn.net/smilelance