my @array = unpack "A4A2A2A2A2A2", $string;
my @array = $string =~ /(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/;
1 2
$string =~ /(?<Jahr>\d{4})(?<Monat>\d{2})(?<Tag>\d{2})(?<Stunde>\d{2})(?<Minute>\d{2})(?<Sekunde>\d{2})/; foo($+{Jahr}, $+{Monat}, $+{Tag});
2013-04-08T09:21:22 MuffiIch versuch pack/unpack immer zu vermeiden
1 2 3 4 5 6 7
my $date = '20130409190203'; my @h = qw(Jahr Monat Tag Stunde Minute Sekunde); my %hunt = (); @hunt{@h} = unpack('A4A2A2A2A2A2', $date); print Dumper \%hunt;
1
2
3
4
5
6
7
8
$VAR1 = {
'Jahr' => '2013',
'Minute' => '02',
'Sekunde' => '03',
'Stunde' => '19',
'Monat' => '04',
'Tag' => '09'
};