Help for this page
sub _on_left { my ( $s ) = @_; ... my $word_level=3; return $words[ scalar( @words ) - $word_level ]; }
sub _on_left { my ( $s ) = @_; ... my $word_level = 3; return $words[ $word_level - 1 ]; }
sub order_line{ my @sorted_lines; ... return lc( _on_left( $a )) cmp lc( _on_left( $b )); }
sub order_line{ my @sorted_lines = sort { _by_left( $a, $b ) } @lines; print @sorted_lines; }
sub order_line{ my @sorted_lines = sort _by_left @lines; ... return lc( _on_left( $a )) cmp lc( _on_left( $b )); }
www.com | www.net | www.org
No recent polls found