Re: Little pb with sort ...

2001-11-20 Thread Leon
or you can use the reverse sort like this ... @trav= reverse sort { $a <=> $b } @trav; _ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional command

Re[2]: Little pb with sort ...

2001-11-20 Thread Daniel Gardner
Tuesday, November 20, 2001, 6:27:44 PM, Brett W. McCoy wrote: BWM> On Tue, 20 Nov 2001, Franck FASANO wrote: >> Here is a little code : >> >> -- >> my @trav= ( 1, 12, 5, 3); >> @trav=sort { $b cmp $a } @trav; >> >> foreach (@trav) { >> print " $_ "; >> } >> -- >> >> Afte

Re: Little pb with sort ...

2001-11-20 Thread Brett W. McCoy
On Tue, 20 Nov 2001, Franck FASANO wrote: > Here is a little code : > > -- > my @trav= ( 1, 12, 5, 3); > @trav=sort { $b cmp $a } @trav; > > foreach (@trav) { > print " $_ "; > } > -- > > After exec, we have : > 5 3 12 1 You're using the wrong operator. You want { $

Re: Little pb with sort ...

2001-11-20 Thread Etienne Marcotte
@trav=sort { $b <=> $a } @trav; <=> instead of cmp for numerical descending http://www.perldoc.com/perl5.6.1/pod/func/sort.html Etienne Franck FASANO wrote: > > Here is a little code : > > -- > my @trav= ( 1, 12, 5, 3); > @trav=sort { $b cmp $a } @trav; > > foreach (@trav) { >

Little pb with sort ...

2001-11-20 Thread Franck FASANO
Here is a little code : -- my @trav= ( 1, 12, 5, 3); @trav=sort { $b cmp $a } @trav; foreach (@trav) { print " $_ "; } -- After exec, we have : 5 3 12 1 But I expected : 12 5 3 1 How can I do ? I mean easily (without developping some code) ... Franck. -- To uns