perl如何對文件夾進(jìn)行處理

這篇文章將為大家詳細(xì)講解有關(guān)perl如何對文件夾進(jìn)行處理，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

用perl批量處理文件夾下所有文件 opendir（）獲取目錄權(quán)柄；readdir（）讀取目錄下文件 #!/usr/bin/perl -w $dirname = "/tmp";         #指定一個(gè)目錄 opendir ( DIR, $dirname ) || die...

用perl批量處理文件夾下所有文件

opendir（）獲取目錄權(quán)柄；readdir（）讀取目錄下文件

#!/usr/bin/perl -w
$dirname = "/tmp";         #指定一個(gè)目錄
opendir ( DIR, $dirname ) || die "Error in opening dir $dirnamen";
while(($filename = readdir(DIR))){
print("$filenamen");       #循環(huán)輸出該目錄下的文件。
### do something ###
}
closedir(DIR);

例 把每個(gè)文件復(fù)制一次：

#!/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 "$_";
}
}

關(guān)于“perl如何對文件夾進(jìn)行處理”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯(cuò)，請把它分享出去讓更多的人看到。