Help for this page

Select Code to Download


  1. or download this
    use Time::Local;
(...)
next unless (m{^(\d{4})-(\d\d)-(\d\d)$});
print "$3.$2.$1\n";
$next = timegm(0,0,0,$3,$2,$1-1900);
  2. or download this
    31.08.2009
Day '31' out of range 1..30 at /home/bjoern/bin/search.pl line 18