Help for this page

Select Code to Download


  1. or download this
    use strict;
    use Date::Calc qw(:all);
    ...
        my ($day, $mon, $year) = $datestr =~ m[(\d+)/(\d+)/(\d+)]; # or Pa
    +rse_Date
        return ($year, $mon, $day);
    }
    
  2. or download this
    Daily rate for 07/01/2003 is 0.02, 20 users, every user pay $0.00
    Daily rate for 09/01/2003 is 95.00, 10 users, every user pay $9.50
    Daily rate for 10/01/2003 is 0.10, 20 users, every user pay $0.01
    Daily rate for 12/12/2003 is 0.10, 12 users, every user pay $0.01