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 dann wie gewohnt statt:
aufruf
my $timestamp = getLoggingTime();
So wie es gerade formatiert ist sieht das Ergebniss dann so aus: „20130719 10:35:12“