Etiket: listeleme

#!/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

Okumaya devam et