Elegante Syntax (gelöst) - #166993 (Allgemeines zu Perl)

rosti

2013-04-09 19:10

User since
2011-03-19
3505 Artikel
BenutzerIn

Affengeil ;)

Idee: Noch schiel föner mit einem Hash-Slice:

Code (perl): (dl )

my $date = '20130409190203';
my @h = qw(Jahr Monat Tag Stunde Minute Sekunde);

my %hunt = ();
@hunt{@h} = unpack('A4A2A2A2A2A2', $date);

print Dumper \%hunt;

Das gibt dann aus:

Code: (dl )

$VAR1 = {
          'Jahr' => '2013',
          'Minute' => '02',
          'Sekunde' => '03',
          'Stunde' => '19',
          'Monat' => '04',
          'Tag' => '09'
        };