sorting pathnames by basename

[Kevin D. Clark]

bscott at ntisys.com writes:

>   I am curious: If that Perl code was optimized for education (as opposed to
> source size), what would it look like?

I dunno, maybe something like this:

#!/usr/bin/perl

@lines = <>;
@sortedLines = sort { 
                 ($baseA) = $a =~ m#/([^/]*)$#;
                 ($baseB) = $b =~ m#/([^/]*)$#;
                 $baseA cmp $baseB 
               } @lines;

for $line (@sortedLines) {
  print $line;
}

__END__


OBTW, while I appreciate Erik's effort (because, in fact, I am
learning Python), in actuality, I believe that his program contains a
bug: what happens if more than one file has the same basename, for
example:

        /a/a/a/a/a/a/a/a/blah
        /b/b/b/b/b/b/b/b/blah

While Erik's program "doesn't suck", and while it does look nice, I
don't believe that it handles this case.

None of the solutions that I have posted suffer from this bug, BTW.

Regards,

--kevin
-- 
Kevin D. Clark / Cetacean Networks / Portsmouth, N.H. (USA)
cetaceannetworks.com!kclark (GnuPG ID: B280F24E)
alumni.unh.edu!kdc