溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章將為大家詳細講解有關perl如何對文件夾進行處理，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。
用perl批量處理文件夾下所有文件 opendir（）獲取目錄權柄；readdir（）讀取目錄下文件 #!/usr/bin/perl -w $dirname = "/tmp"; #指定一個目錄 opendir ( DIR, $dirname ) || die...
用perl批量處理文件夾下所有文件
opendir（）獲取目錄權柄；readdir（）讀取目錄下文件
#!/usr/bin/perl -w
$dirname = "/tmp"; #指定一個目錄
opendir ( DIR, $dirname ) || die "Error in opening dir $dirnamen";
while(($filename = readdir(DIR))){
print("$filenamen"); #循環輸出該目錄下的文件。
### do something ###
}
closedir(DIR);例 把每個文件復制一次：
#!/usr/bin/perl
use warnings;
use strict;
my (%h, $filename);
my $dirname="/home/bmk/";
opendir (DIR, $dirname)|| die "Error in opening dir $dirnamen";
while (($filename=readdir(DIR))){
open (FILE, "/home/bmk/".$filename)|| die "can not open the file $filenamen";
open (OUT, ">/home/bmk/$filename.bak")|| die "can not open the $filename.bakn";
while (<FILE>){
print OUT "$_";
}
}關于“perl如何對文件夾進行處理”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
