> my @otherstuff = sort {
> (my $numa) = ($a =~ m/\.(\d+)\./);
> (my $numb) = ($b =~ m/\.(\d+)\./);
> $numa <=> $numb || $a cmp $b
> } @stuff;
you rock, i owe ya a beer ;o)
-id
-------------------------------------------------------
This SF.Net email sponsored by: ApacheCon 2003,
16-19 November in Las Vegas. Learn firsthand the latest
developments in Apache, PHP, Perl, XML, Java, MySQL,
WebDAV, and more! http://www.apachecon.com/
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk
