Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: sort array

by jwkrahn (Monsignor)
on Apr 30, 2012 at 20:00 UTC ( #968141=note: print w/replies, xml ) Need Help??

in reply to sort array

sub _on_left { my ( $s ) = @_; my @words = split( /\s+/); my $word_level=3; return $words[ scalar( @words ) - $word_level ]; }

You say you want the third word from the left but you are accessing the third word from the right.    $words[ scalar( @words ) - $word_level ] should be $words[ $word_level - 1 ].

But you are not actually getting a word because split( /\s+/) is short for split( /\s+/, $_) and you don't have a value in $_ to split on.

So you want something like this:

sub _on_left { my ( $s ) = @_; my @words = split ' ', $s; my $word_level = 3; return $words[ $word_level - 1 ]; }

sub order_line{ my @sorted_lines; foreach ( sort { _by_left( $a, $b ) } @lines ) { push @sorted_line +s, $_ } print @sorted_lines; } sub _by_left { my ( $a, $b ) = @_; return lc( _on_left( $a )) cmp lc( _on_left( $b )); }

You don't need a foreach loop, you can just do:

sub order_line{ my @sorted_lines = sort { _by_left( $a, $b ) } @lines; print @sorted_lines; }

And instead of calling a subroutine in the sort block you could just use the subroutine name:

sub order_line{ my @sorted_lines = sort _by_left @lines; print @sorted_lines; } sub _by_left { return lc( _on_left( $a )) cmp lc( _on_left( $b )); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://968141]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2016-10-01 20:04 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (7 votes). Check out past polls.