perlquestion
Anonymous Monk
Hi Monks!<br><br>
How can I get yesterday's date from today's date, but making sure I don't get weekends for yesterday's date.
<br>
I can get yesterday's date using this:<br>
<code>
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw(Add_Delta_Days Day_of_Week);
use Date::Calc qw(Today Add_Delta_Days);
print header();
my @date = Add_Delta_Days( Today(), -1 );
print "@date\n";
</code><br>
But if I run it I am getting "2008-2-3" and it's a weekend date, any help?<br><br>Thanks!!!
27