Thread Tag und Zeit verarbeiten
(4 answers)
Opened by chmod777 at 2019-12-21 18:32
Nimm Hash_Slice, dann hast Du die Zeiten schön leserlich und direkt addressierbar namentlich. Liest sich besser.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 use strict; use warnings; sub localtime{ my $self = shift; my $time = shift || time; my %hunt = (); my @fields = qw(sec min hour mday mon year wday yday isdst); @hunt{@fields} = localtime($time); $hunt{year} += 1900; $hunt{mon} += 1; return \%hunt; }; 1;######################################################################### #__END__ use Data::Dumper; $, = "\n"; my $m = bless{}; print Dumper $m->localtime(); $VAR1 = { 'wday' => 0, 'hour' => 13, 'min' => 0, 'isdst' => 0, 'sec' => 53, 'mon' => 12, 'yday' => 355, 'mday' => 22, 'year' => 2019 }; |