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

$d-- is short for $d = $d -1, that is "subtract one from $d".

Date::Simple provides a date object, and you can add and subtract number from that, so today() - 1 is yesterday.

Then it decreases the value by one while the day of week is 0 (Sunday) or 6 (Saturday).

Replies are listed 'Best First'.
Re^4: Yesterday Date
by Anonymous Monk on Feb 04, 2008 at 20:08 UTC
    OK, it could be written like:
    if( ($d->day_of_week == 0) ||( $d->day_of_week == 6)){

$d = $d -1;

print $d;
}

    [download]
[reply]
[d/l]
      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]

In Section Seekers of Perl Wisdom