Array mit Datumswerten sortieren - #78920 (Allgemeines zu Perl)

renee

2007-07-26 18:04

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=MartinR,26.07.2007, 14:59][...]
Und mit diesem Tipp aus dem Kochbuch eliminiere ich auch gleich die doppelten Einträge. Oder kann man das sogar noch verknüpfen?
[...][/quote]
Klar kann man ;)

Code (perl): (dl )

my %seen;
@Datum =
   map{ $_->[0] }
   sort{ $a->[3] <=> $b->[3] ||
       $a->[2] <=> $b->[2] ||
       $a->[1] <=> $b->[1] }
   map{ [$_,split /\./, $_] }
   grep{ !$seen{$_}++}@Datum;

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/