"John W. Krahn" wrote:
>
> 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;
Sorry, that should be:
opendir DIR, $dir or die "Cannot open $dir: $!";
my @files = sort { -d "$dir/$b" <=> -d "$dir/$a" or "$dir/$a" cmp
"$dir/$b" }
grep { !/^\.\.?$/ }
readdir DIR;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
