Etiket: recursive

#!/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”; }

Okumaya devam et