welle has asked for the wisdom of the Perl Monks concerning the following question:
Hello Monks,
I need your help. I have an array containing sentences. I want to order the sentences according to a given word (i.e. the third from the left).
I am a nice boy You are a nice boy They are not good at all
What I found is the following (adapting it from Lingua::Concordancer):
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 )); } sub _on_left { my ( $s ) = @_; my @words = split( /\s+/); my $word_level=3; return $words[ scalar( @words ) - $word_level ]; }
Of course it doesn't work...
Back to
Seekers of Perl Wisdom