溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
Perl編程中文件遍歷操作是怎樣的，針對這個問題，這篇文章詳細介紹了相對應的分析和解答，希望可以幫助更多想解決這個問題的小伙伴找到更簡單易行的方法。
幾個知識點：
use Cwd 引用當前目錄
cwd：當前目錄
shift：獲取位置參數；
chdir 改變目錄位置
opendir 打開目錄
closedir 關閉目錄
foreach 。。。next
#!perl -w
use strict;
use Cwd; //
sub scanDirectory {
my $workdir=shift;
my $startdir=cwd;
chdir $workdir or die "Unable to enter the $workdir dir!\n";
opendir my $DIR,'.' or die "can't open the dir\n";
my @names = readdir $DIR or die "can't readdir\n";
closedir $DIR;
foreach my $name(@names){
next if($name eq '.');
next if($name eq '..');
if(-d $name){
scanDirectory($name);
next;
}
if($name eq 'core.txt'){
print "find a core file! Path:". cwd ."\n";
next;
}
}
chdir $startdir or die "Unable to enter the $startdir dir!\n";
}
&scanDirectory('.');關于Perl編程中文件遍歷操作是怎樣的問題的解答就分享到這里了，希望以上內容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關注億速云行業資訊頻道了解更多相關知識。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
