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 dann wie gewohnt statt: aufruf my $timestamp = getLoggingTime(); So wie es gerade formatiert ist … Weiterlesen