如何使用perl腳本獲取目錄的屬性？

Question

我想獲得一個目錄的詳細信息，就像其中的文件和子目錄的數量以及這些目錄的權限。

是的！在linux機器上使用back tick執行命令很容易。但是有沒有辦法讓腳本平臺獨立。

謝謝:)

Answer 1

您可以使用目錄句柄（opendir和readdir）來獲得目錄的內容和File::stat得到你可能要考慮使用Path::Class權限

Answer 2

。這既爲您提供了一個簡單的界面，同時也爲您處理所有跨平臺事宜（包括平臺上的「\」和「/」之間的區別）。

use Path::Class qw(file dir); 

    my $dir = dir("/etc"); 

    my $dir_count = 0; 
    my $file_count = 0; 

    while (my $file = $dir->next) { 
     # $file is a Path::Class::File or Path::Class::Dir object 

     if ($file->is_dir) { 
     $dir_count++; 
     } else { 
     $file_count++; 
     } 

     my $mode = $file->stat->mode; 
     $mode = sprintf '%o', $mode; # convert to octal "0755" form 
     print "Found $file, with mode $mode\n"; 
    } 
    print "Found $dir_count dirs and $file_count files\n";