Portál AbcLinuxu, 19. dubna 2024 23:35
#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
#$mon je cislovany od nuly
$mon+=1;
#$year je od roku 1900
$year+=1900;
printf "$mday.$mon.$year\n";
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.