這篇文章給大家分享的是有關從Perl目錄中分辨文件的方法的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考。一起跟隨小編過來看看吧。

創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比偃師網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式偃師網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們，業(yè)務覆蓋偃師地區(qū)。費用合理售后完善，10多年實體公司更值得信賴。

假設您正在構建一個Perl腳本來遍歷文件系統(tǒng)并記錄它找到的內(nèi)容。當您打開文件句柄時，您需要知道您是在處理實際文件還是處理目錄，您可以區(qū)別對待。你想要一個目錄，所以你可以繼續(xù)遞歸地解析文件系統(tǒng)。從目錄告訴文件的最快方法是使用Perl內(nèi)置的文件測試操作。Perl具有可用于測試文件不同方面的運算符。-f運算符用于標識常規(guī)文件而不是目錄或其他類型的文件。

使用-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.";
}

首先，創(chuàng)建兩個字符串：一個指向文件，另一個指向目錄。接下來，使用-f運算符測試$ filename，它檢查某些內(nèi)容是否為文件。

這將打印“這是一個文件”。如果在目錄上嘗試-f運算符，則不會打印。

然后，對$ directoryname執(zhí)行相反的操作，并確認它實際上是一個目錄。將它與目錄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目錄中分辨文件的方法就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！