溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》
您好，登錄后才能下訂單哦！
這篇文章給大家分享的是有關(guān)從Perl目錄中分辨文件的方法的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考。一起跟隨小編過來看看吧。
假設(shè)您正在構(gòu)建一個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 相結(jié)合，以排序哪些元素是文件，哪些是目錄：
#!/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;
}
}感謝各位的閱讀！關(guān)于從Perl目錄中分辨文件的方法就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！
免責聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。
億速云公眾號
手機網(wǎng)站二維碼