Hashvalues nach Variablen sortieren: SCHWER - #49764 (Allgemeines zu Perl)

renee

2004-09-01 18:59

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

while(my $line = <DATA>){
  chomp $line;
  my @array = split(/\s+/,$line);
  $hash{$array[1]} = [@array[2,3,4,0,6,5]];
}

Hier lese ich die Daten ein <DATA> muss dann später durch Dein Filehandle ersetzt werden. Es wird ein Hash gefüllt, bei dem die Flugnummer (die ist eindeutig) der Key ist und der Value ist ein Anonymes Array. Der Dump sieht so aus:

Code: (dl )

$VAR1 = {
          '336632' => [
                        'Berlin',
                        'Bielefeld',
                        'B',
                        '01.09.2004',
                        '16:00',
                        '22:00'
                      ],
        };

Um nach dem Datum und Uhrzeit sortieren zu können, muss ich einen numerischen Vergleich ermöglichen. Deshalb die Methode change_time. Aus der Datum-Uhrzeit-Gruppe 20.09.2004 11:51 wird dann 200409201151.

$a und $b sind Spezialvariablen. Die sind sort{} schon bekannt und enthalten jeweils ein Element aus dem Array, das sort{} übergeben wird.
mit $hash{$a}->[<Zahl] greife ich auf ein Element des Anonymen Arrays zu.

@Taulmarill: solche Schleichwerbung ist erlaubt ;)\n\n

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/