RE: sorting directories

[Timothy Johnson]

Here's one way:

my @dirs = ();
my @files = ();
opendir(DIR,"/");
my @entries = readdir(DIR);
@entries = sort @entries;
foreach(@entries){
  if(-d "/".$_){
    push @dirs,$_;
  }else{
    push @files,$_;
  }
}

foreach(@dirs,@files){
  print $_."\n";
}

-----Original Message-----
From: Sukrit K Mehra [mailto:holysmoke@;skycable.net]
Sent: Tuesday, November 12, 2002 9:56 AM
To: [EMAIL PROTECTED]
Subject: sorting directories


Hi listers,

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.

regards
-- 
sukrit || [EMAIL PROTECTED] || http://www.symonds.net/~holysmoke

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]