Array auslesen - #131484 (Allgemeines zu Perl)

renee

2010-01-29 12:52

User since
2003-08-04
14371 Artikel
ModeratorIn

damit verlierst du die Reihenfolge... Nimm Arrayreferenzen in dem Hash.

Ich würde eine Datenstruktur aufbauen, die in etwa so aussieht:

Code: (dl )

%Info = (
  A => {
    InternalCounter = 1,
    PTage => [ ... ],
    Date  => [ ... ],
  },
  B => {
    InternalCounter = 2,
    PTage => [ ... ],
    Date  => [ ... ],
  }
)

Und dann:

Code (perl): (dl )

for my $Title ( sort { $a->{InternalCounter} <=> $b->{InternalCounter} } keys %Info ) {
    my $String = $Title . " " . join ( " ", @{ $Info{$Title}->{PTage} } ) . " " . join( ", ", @{ $Info{$Title}->{Date} } );
    print $String;
}

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/