mehrdimensionales Array sortieren mit Besonderheit - #100337 (Allgemeines zu Perl)

renee

2007-10-05 14:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Willst Du nach dem sort die orginal-Daten verwenden (1) oder die geänderten (2)?

(1)

Code (perl): (dl )

1
2
3

@data = map{$_->[0] }
                      sort{ lcfirst $a->[1] cmp lcfirst $b->[1] }
                      map{ my $var = $_; $var =~ s/^\s+|\s+$//; [$_,$var] } @data;

(2)

Code (perl): (dl )

1
2

@data = sort{ lcfirst $a->[1] cmp lcfirst $b->[1] }
                      map{ s/^\s+|\s+$//; $_ } @data;

ungetestet

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/