如何從Perl的目錄中分離文件
來源:教育資源網(wǎng)
?
發(fā)布時間:2020-11-30 08:00:05
?
點擊:1549
讓'說你'重建Perl腳本來遍歷文件系統(tǒng)并記錄它的發(fā)現(xiàn)。當您打開文件時，您需要知道您是否'正在處理實際文件或使用不同對待的目錄。您想繪制一個目錄，所以您可以繼續(xù)遞歸地解析文件系統(tǒng)。從目錄中告訴文件的最快方法是使用Perl's內(nèi)置文件測試運算符.Perl有可用于測試文件不同方面的運算符。-f運算符用于標識常規(guī)文件，而不是目錄或其他類型的文件。
Using the-f File Test Operator
#！/usr/bin/perl-w
$文件名='/path/to/your/文件.doc';
$directoryname=&##39;;
if（-f$filename科普傳播）{
print"這是一個文件。";
}
if（-d$directoryname）{
print"這是一個目錄。&##34;;
}
首先，創(chuàng)建兩個字符串：一個指向文件，一個指向目錄。接下來，使用-f運算符測試$文件名，該運算符檢查是否有文件。這將打印"這是一個文件。"如果您嘗試目錄上的-f運算符，它不會打印't打印。然后，對$directoryname執(zhí)行相反的操作，并確認它實際上是一個目錄。將其與目錄glob組合以排序哪些元素是文件，哪些是目錄：
##！/usr/bin/perl-w
@files=<*>;
foreach$file（@files）{
if（-f$file）{
print"這是一個文件：&35; 34。$file;
}
if（-d$file）{
print"這是一個目錄："。$file;
}
}
Perl文件測試運算符的完整列表可在線獲得。
