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”

perl timestamp basteln
Tagged on:     

Leave a Reply

Your email address will not be published. Required fields are marked *

The CAPTCHA cannot be displayed. This may be a configuration or server problem. You may not be able to continue. Please visit our status page for more information or to contact us.