Perl: Dosya ve Klasör İşlemleri
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#!/usr/bin/perl -w my $mfolder="./mainfolder/"; opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n"); my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR)); closedir(DIR); foreach my $fold(@sub_folder_list) { my $deepfold=$mfolder.$fold; opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n"); my @txt_files=grep(/.txt$/,readdir(DIR)); closedir(DIR); foreach my $file(@txt_files) { print $deepfold."/".$file."\n"; } } |
Bir cevap yazın