Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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]
[Discipulus]: yes i saw your cell brother..
[Discipulus]: but now fuel is cheap and they still make some war.
[Discipulus]: capitalism is able to go to war by cycle, even.
[shmem]: some? are you jokin' ?
[shmem]: fuel is only one fuel that fuels the fools... it is all about power and control - which NOBODY will have.
[shmem]: ...can't have, since silly

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2017-04-29 22:02 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (534 votes). Check out past polls.