in reply to Re^3: Yesterday Date
in thread Yesterday Date

OK, it could be written like:
if( ($d->day_of_week == 0) ||( $d->day_of_week == 6)){

$d = $d -1;

print $d;
}

[download]

Replies are listed 'Best First'.
Re^5: Yesterday Date
by Anonymous Monk on Feb 04, 2008 at 20:11 UTC
    I guess I would have to add 
    
$d = $d -1;

if( ($d->day_of_week == 0) ||( $d->day_of_week == 6)){

$d = $d -1;

print $d;
}

    [download]
    before!
[reply]
[d/l]
      Nope. You added two bugs

      If you start on a Monday, that'll give you the Saturday. That's why a loop was used.

      If you start on a day other than Sunday or Monday, it won't print anything. That's why the print was outside the loop.

[reply]
[d/l]
        OK, good point, now what does this line do?

        print $d, $/;

        can I use the result with just this:

        print "$d";

        [download]


        Thanks!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom