![]() |
|< 1 2 3 >| | ![]() |
22 Einträge, 3 Seiten |
1
2
3
4
5
6
# PERL Script - returns day of the week
# Monday is 1
# Sunday is 7
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($wday == 0) {$wday=7;}
exit ($wday);
![]() |
|< 1 2 3 >| | ![]() |
22 Einträge, 3 Seiten |