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
perl Module updaten
Also hab ich heute doch tatsächlich nachschauen müssen wie und wo die Schraube sitzt. Mit den ganze Paketmanagern da draussen verweichlicht das Hirn ein wenig. Damit ich es auch Morgen wieder finde, hier die Zeile die ich nutze um die