Date::Manip is one module that's pure perl, and by the author's documentation, attempts to be the swiss army knife of date modules.

But if that doesn't help, a search on CPAN might. Last time I needed something to do with dates (earlier today, in fact), I did a search, read through some of the various module's documentation, and picked the one that made the most sense.

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]

my $epochSecs =
   localtime($secs, $mins, $hours, $mday, $mon, $year);
[download]

Note that $mon is 0 for January to 11 for December.

Once you have converted your three dates to epoch seconds you can do a simple numeric comparison.

If, however, your date strings are complex and inconsistent then using a module as chargrill suggests would probably be less painful.

Cheers,

JohnGG

Update: tag cock-up corrected

To put it briefly: if you install a binary module (i.e. containing C code to be compiled) with PPM, then you'll get a binary version (i.e. complete of compiled binaries suitable for your architecture & current perl). In any case, you should not "browse this module" - unless you're curious about its implementation, that is. You installed it, then you can read its documentation with perldoc and use it straight out of the box: did you try doing so?

use strict;
use warnings;
use DateTime;
use DateTime::Span;
use Datetime::Format::ISO8601;

my $iso8601 = DateTime::Format::ISO8601->new;

while (<DATA>) {
    my ( $first, $last ) = split('\|');
    chomp $last;
    my $dt_set = DateTime::Span->from_datetimes(
        start  => $iso8601->parse_datetime($first),
        before => $iso8601->parse_datetime($last),
    );
    if ( $dt_set->contains( DateTime->now() ) ) {
        print "Within date range\n";
    }
    else {
        print "Not within date range\n";
    }
}

__DATA__
1998-02-14|1998-03-01
2006-04-10|2006-06-01
[download]

use strict;
use warnings;

my $date1 = dateconvert('Jan 11, 04');
my $date2 = dateconvert('Jan 30, 04');
my $date3 = dateconvert('Feb 10, 04');

print "$date1 <= $date2 <= $date3 ? ";
print $date1 <= $date2 && $date2 <= $date3 ? "Yes" : "No";

BEGIN {
    my @mon = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
    my %mon; $mon{$mon[$_]} = $_ for 0..$#mon;
    sub dateconvert {
        my $date = $_[0];
        my ($mon, $day, $year) = $date =~ m/(\w+) (\d+), (\d+)/;
        $mon = $mon{$mon};
        return sprintf("%02d%02d%02d", $year, $mon, $day);
    }
}
[download]