Help for this page

Select Code to Download


  1. or download this
    use strict;
use Date::Tie;
tie my %dt, 'Date::Tie';
...
# 2003-08-20 is in last 6 days
# 2003-08-27 is not in last 6 days
# 2003-08-15 is not in last 6 days
  2. or download this
    use strict;
use Date::Tie;
tie my %dt, 'Date::Tie';
...
# 20-08-03 is in last 6 days
# 27-08-2003 is not in last 6 days
# 15-8-03 is not in last 6 days