in reply to Re: Yesterday Date
in thread Yesterday Date

This gets the right date and no weekend, can you explain what this code is doing, specially the "$d--" ? Is there another way to write the some code?

Replies are listed 'Best First'.
Re^3: Yesterday Date
by moritz (Cardinal) on Feb 04, 2008 at 19:57 UTC
    $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).

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

In Section Seekers of Perl Wisdom