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

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

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

使用-f文件測(cè)試操作員

#!/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)建兩個(gè)字符串：一個(gè)指向文件，另一個(gè)指向目錄。接下來(lái)，使用-f運(yùn)算符測(cè)試$ filename，它檢查某些內(nèi)容是否為文件。

這將打印“這是一個(gè)文件”。如果在目錄上嘗試-f運(yùn)算符，則不會(huì)打印。

然后，對(duì)$ directoryname執(zhí)行相反的操作，并確認(rèn)它實(shí)際上是一個(gè)目錄。將它與目錄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)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！

分享文章：從Perl目錄中分辨文件的方法
本文網(wǎng)址：http://aaarwkj.com/article10/jjhjdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、小程序開(kāi)發(fā)、網(wǎng)站營(yíng)銷、定制網(wǎng)站、定制開(kāi)發(fā)、微信公眾號(hào)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)