Sorting Directory and Filenames

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

i wanted to sort an array with whole file paths alphabetically.

@array = ("/media/banana.jpg","/media/Apple/apple.jpg");
[download]

i used the ff code to sort it alphabetically,

@array = sort mysort @sort;

sub mysort {
    lc($a) cmp lc($b);
}
[download]

the problem is that since 'A' goes first before 'b' "/media/Apple/apple.jpg" goes on top of the array. i wanted it to be sorted so that files that were found outside of a folder be on the top, then files in a folder at the bottom.

Comment on Sorting Directory and Filenames Select or Download Code

Replies are listed 'Best First'.
Re: Sorting Directory and Filenames by zwon (Abbot) on Jan 10, 2009 at 17:08 UTC
this code should do it: `#!/usr/bin/perl use strict; use warnings; use File::Basename; my @files; while(<>) { chomp; push @files, $_; } sub fcmp { my $res = dirname($a) cmp dirname($b); $res = basename($a) cmp basename($b) unless $res; return $res; } my @sorted = sort fcmp @files; print "$_\n" for @sorted;` [download] Update: note that array should contain only filenames, if there are directory names it will not work correctly.	[reply] [d/l]
Re^2: Sorting Directory and Filenames by Anonymous Monk on Jan 10, 2009 at 18:22 UTC
i revised your code... because of the case-issue... `#!/usr/bin/perl use strict; use warnings; use File::Basename; my @files; while(<>) { chomp; push @files, $_; } sub fcmp { my $res = lc(dirname($a)) cmp lc(dirname($b)); $res = lc(basename($a)) cmp lc(basename($b)) unless $res; return $res; } my @sorted = sort fcmp @files; print "$_\n" for @sorted;` [download]	[reply] [d/l]
Re^3: Sorting Directory and Filenames by ikegami (Patriarch) on Jan 10, 2009 at 19:13 UTC
`my @files; while(<>) { chomp; push @files, $_; }` [download] is a long winded way to say `chomp( my @files = <> );` [download] And here's an alternate version that should be much faster for long lists: `my @sorted = map /.\0(.)/s, sort map lc(dirname($_)) . "\0" . lc(basename($_)) . "\0" . $_, @files;` [download]	[reply] [d/l] [select]