3 lines
119 B
Perl
Executable File
3 lines
119 B
Perl
Executable File
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
|
|
printf("500%02d%03d%02d\n", $year, 1+$yday, $hour);
|