Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^4: Yesterday Date

by Anonymous Monk
on Feb 04, 2008 at 20:08 UTC ( [id://666082]=note: print w/replies, xml ) Need Help??


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; }

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; }
    before!
      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.

        OK, good point, now what does this line do?

        print $d, $/;

        can I use the result with just this:

        print "$d";


        Thanks!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://666082]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (6)
As of 2024-04-18 15:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found