Re: Changing Perl's sort Default

This is one way to "change the default", but i think is a bit odd:

sub sort { 
    sort { $a <=> $b } @_ 
} 

@a=qw(1 12 11 102); 
@a = &sort (@a); 
print "@a";'

Output: 1 11 12 102
[download]

It works because &sort calls main::sort, instead of CORE::sort

Comment on Re: Changing Perl's sort Default Select or Download Code

Replies are listed 'Best First'.
Re: Re: Changing Perl's sort Default by fglock (Vicar) on Oct 24, 2002 at 13:15 UTC
This is the "numerical + alphabetical" version: `sub sort { sort { ($a <=> $b) or ($a cmp $b) } @_ } @a=qw( 1 12 11 102 ddd abc cba 1c 1a ); @a = &sort (@a); print "@a\n"; Output: abc cba ddd 1 1a 1c 11 12 102` [download]	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.