Help for this page

Select Code to Download


  1. or download this
    $ perl -e'printf "%-3s %2d\n", "$_:", $_ - ($_ % 5) for 0..19'
0:   0
...
17: 15
18: 15
19: 15
  2. or download this
    $ perl -MPOSIX -le'@lt = localtime; $lt[0] -= $lt[0] % 5; print strfti
+me "%Y-%m-%dT%H:%M:%S", @lt'
2009-07-09T12:14:40
...

$ perl -MPOSIX -le'@lt = localtime; $lt[0] -= $lt[0] % 5; print strfti
+me "%Y-%m-%dT%H:%M:%S", @lt'
2009-07-09T12:14:45