Sukrit K Mehra wrote:
>
> Hi listers,
Hello,
> While doing this -->
>
> @files = readdir(Favorites);
>
> i get an unsorted list in @files. What i desire is directories first and
> then files. Using sort function would sort by ascii value and sort
> by_name and such won't work too. Please suggest a solution.
opendir DIR, $dir or die "Cannot open $dir: $!";
my @files = sort { -d $b <=> -d $a or $a cmp $b }
grep { !/^\.\.?$/ }
readdir DIR;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
