perl timestamp basteln

Es gibt sicherlich genug snippets die auch kürzer sind, doch das snippet hier ist übersichtlich und nicht die Welt. sub routine sub getLoggingTime { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); my $nice_timestamp = sprintf ( “%04d%02d%02d %02d:%02d:%02d”, $year+1900,$mon+1,$mday,$hour,$min,$sec); return $nice_timestamp; } Der Aufruf findet