如何從Perl中的目錄分辨文件

假設您正在建立一個Perl腳本來遍歷檔案系統並記錄它找到的內容。當您開啟檔案句柄時，您需要知道您是在處理實際檔案還是處理目錄，您可以區別對待。你想要一個目錄，所以你可以繼續遞歸地解析檔案系統。從目錄告訴檔案最快的方法是使用Perl內建的檔案測試操作。 Perl具有可用於測試檔案不同方面的運算子。 -f運算子用於識別常規檔案而不是目錄或其他類型的檔案。

推薦參考學習：《Perl教學》

使用-f檔案測試操作員

#!/usr/bin/perl -w
$filename = '/path/to/your/file.doc';
$directoryname = '/path/to/your/directory';
if (-f $filename) {
print "This is a file.";
}
if (-d $directoryname) {
print "This is a directory.";
}

首先，建立兩個字串：一個指向文件，另一個指向目錄。接下來，使用-f運算子測試$ filename，它檢查某些內容是否為檔案。

這將列印「這是一個檔案」。如果在目錄上嘗試-f運算符，則不會列印。

然後，對$ directoryname執行相反的操作，並確認它實際上是一個目錄。將它與目錄glob  結合，以排序哪些元素是文件，哪些是目錄：

#!/usr/bin/perl -w
@files = <*>;
foreach $file (@files) {
if (-f $file) {
print "This is a file: " . $file;
}
if (-d $file) {
print "This is a directory: " . $file;
}
}

本篇文章就是關於從Perl中的目錄中分辨文件的方法介紹，希望對需要的朋友有所幫助！

以上是如何從Perl中的目錄分辨文件的詳細內容。更多資訊請關注PHP中文網其他相關文章！