Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use POSIX 'strftime';
...
print strftime('%V',@now) - strftime('%V',@first), $/
__END__
3
  2. or download this
    print 1 + int((localtime)[3]/7),$/;