[EMAIL PROTECTED] 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 _______________________________________________ gnhlug-discuss mailing list [EMAIL PROTECTED] http://mail.gnhlug.org/mailman/listinfo/gnhlug-discuss