http://www.perlmonks.org?node_id=642688


in reply to Date and time for log files

ibaboom:

Howzabout:

#!/usr/bin/perl -w use strict; use warnings; my @gm = localtime(time); printf "%04u%02u%02u%02u%02u\n", $gm[5]+1900, $gm[4]+1, $gm[3], $gm[2], $gm[1], $gm[0];

...roboticus