Help for this page

Select Code to Download


  1. or download this
    my @bits = split ' ', localtime( time() - ( 45 * 24 * 60 * 60 ) );;
    my $n = 1; 
    ...
    print $targetDate;;
    
    2007-11-28
    
  2. or download this
    open OLDDB, '<', $dbname or die ...;
    open NEWDB, '>', $tempfile or die ...;
    ...
    unlink $dbname;
    rename $tempfile, $dbname;