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";
}
Share