Where does that strange date format come from? It's the first time I see a date with "day of the week" but without the year...

Anyway.

About your code: the two arrays are useless, since $days[$n]==$n for each $n, and the same holds for @Months. And keep in mind that @array[@indices] is an array slice, while $array[$index] is a single element. Search for "array slice" for more info.

Now, what do you really need to do? Do something if the current time is no later than 24 hour after a given date?

In this case, I'd do it this way:

use POSIX; # this module defines the function mktime

$last='2/21/5/19:22:14'; # this is the timestamp of the user's last lo
+gin
$now=time; # the present

($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now-8
+6400); # a day ago
($mon2,$mday2,$wday2,$hr2,$min2,$sec2)=($last=~m|^(\d+)/(\d+)/(\d+)/(\
+d+):(\d+):(\d+)|) or die "Wrong timestamp: $last\n"; # extract values
+ from the timestamp, with a bit of checking

$last_time=POSIX::mktime($sec2,$min2,$hr2,$mday2,$mon2,$year); # trans
+form the timestamp into a unix-time (seconds since the epoch)

unless (defined $last_time) {die "Wrong timestamp: $last\n"} # mktime 
+will return undef if the date is not valid

print "In range" if ($now-$last_time)<86400; # if the difference is le
+ss than a day...
[download]

-- 
        dakkar - Mobilis in mobile

HEY Dakkar,,, that posix module seems to work just great!!! I think this is just what i was looking for.. Thank you so very much... I can now continue... If something goes wrong I know were to come back LOL :D

Thannks alot guys/gals!

Very interesint,,,,

Is there any way of doing this without using modules?

ACJavascript,
It is trivial to do the less than 24 hours thing. Just store the value in timestamp format when the person logs in and retrieve it later ($first_logon = time;). That way you can retrieve it when you are determining the cut off. As far as converting a date into a timestamp - yes it is possible without modules or the module itself wouldn't be possible. Date::Manip is very fast because it uses a C backend. Time::Local basically just uses convergence by guessing at the time and then lowering/highering values until it locks in on its target. It also uses a cache to make repeated checks of the same month faster, so I wouldn't suggest re-inventing these wheels.

Cheers - L~R

Update: Beside the module suggestion: please disregard this post, as I completly misread the OPs problem, especially the strange date-format.

I'd suggest using Time::ParseDate: Or/And any other Time::XXX module that suites your needs.

 
use Time::ParseDate;

my ($date1, $date2) = qw!2002/22/6  2002/22/7!;

my ($sec1, $sec2);
$sec1 = parsedate($date1);
$sec2 = parsedate($date2);

my $diff = $sec2-$sec1;

if ($diff > 0 && $diff <= 86400) {
    openSesame();
} else {
    youReOut();
}

sub openSesame {
   print "IN\n";
 }

 sub youReOut {
   print "OUT\n";
 }
[download]

regards,
tomte