Re: divide by '/'

@numbers = qw( 1/23 3/45 65/0 6/01 0/100 123/4568 );

@sorted = sort { (split('/', $a))[0]
                        <=>
                 (split('/', $b))[0]
          } @numbers;

print "@numbers\n";
[download]

Very embarrassing update: That last line should indeed read print "@sorted\n"; Thanks to jynx for the /msg.

Comment on Re: divide by '/' Select or Download Code

Replies are listed 'Best First'.
Re: Re: divide by '/' by jynx (Priest) on Apr 12, 2001 at 23:19 UTC
Did you mean: `print "@sorted\n";` [download] For that last line? jynx	[reply] [d/l]
Re: Re: Re: divide by '/' by dws (Chancellor) on Apr 13, 2001 at 00:47 UTC
Yup. Stringifying the array automatically uses `$"` (`$LIST_SEPARATOR` if you `use English;`) as a separator. It's a shortcut for saying `print join($", @sorted), "\n";` which, since `$"` defaults to `' '`, is a also a shortcut for `print join(' ', @sorted), "\n";`	[reply] [d/l] [select]