in reply to is today a friday

localtime can receive an argument, which is the number of seconds since epoch. You can get today's time with time function, and then add the time needed in seconds (i.e. tomorrow will be time() + 24 * 60 * 60 * $days, where $days will be 1, and so).

I think it's enough for starting. You can also check Date::Manip, Date::Calc and others.

Good luck!

Igor 'izut' Sutton
your code, your rules.

Replies are listed 'Best First'.
Re^2: is today a friday
by baysbenj (Initiate) on Mar 10, 2006 at 19:12 UTC
    Thanks for the start izut. Is there any way to pass in a date without having to count the number of days that have passed since epoch? is there any way to just pass in "03102006" (today's date).
[reply]
      Some or all of the modules already listed do this. Core module Time::Local also does. 
      use Time::Local qw( timelocal );

my $date = '10/15/2008';

my ($m, $d, $y) = split(m{/}, $date);
my $time = timelocal(0, 0, 0, $d, $m-1, $y);
my $dow = (localtime($time))[6];

if ($dow == 5) {
   print("It's Friiiiiiiiday!\n");
} elsif ($dow == 0 || $dow == 6) {
   print("Sweet heavenly weekend!\n");
} else {
   print("Get back to work, you bum!\n");
}

      [download]
[reply]
[d/l]
      Well, you could use Mktime in Date::Calc to convert your string to unix time, then pass that to another Date::Calc function... but what's the point? Just use one of Date::Calc's Day_of_Week methods and be done with it.
      ---
      It's all fine and dandy until someone has to look at the code.
[reply]

In Section Seekers of Perl Wisdom