Perl: Dosya ve Klasör İşlemleri
#!/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
Etiket: dosya
Perl: Recursive Dosya Listeleme
#!/usr/bin/perl my $main_folder=”./folder/”; my @folds=readpipe(“tree -if –noreport “.$main_folder); foreach my $fold(@folds) { $fold=~s/\r//g; $fold=~s/\n//g; print $fold.”\n”; }
Son yorumlar