Help for this page

Select Code to Download

Select or download this

   for ($year, $month, $day) {
      if (/\b\d{1}\b/) {
         $_ = "0$_";
      }
   }

Select or download this

#!/usr/local/bin/perl -wl
use Time::Local;
...
}

print get_yesterday("2005-04-01");