Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Today I took My Holidays

by samus (Initiate)
on Dec 11, 2012 at 14:44 UTC ( #1008317=poem: print w/ replies, xml ) Need Help??

24/12/2012: Description: s/\bwork\b/holiday/ Reason: return 1; 26/12/2012: Description: s/\bwork\b/fun stuffs/ Reason: return defined $fun and defined $stuff ? $stuff eq $fun : ($ +stuff = $fun); 27-28/12/2012: Description: s/\bwork place\b/christmas/ig Reason: s/\bwork place\b/christmas/ig 31/12/2012: Description: s/\bwork place\b/new year/ig Reason: return $home if my($blood_alcohol_content) gt 2; 2-4/1/2013: Description: s/\bnew\s+year\b/$rest and $peace/ge Reason: (my $bed and my $rest) or (my $bed and my $gf) or ($Perl_suc +ks)

Comment on Today I took My Holidays
Download Code
Re: Today I took My Holidays
by MidLifeXis (Prior) on Dec 11, 2012 at 20:01 UTC

    Shouldn't this one be:

    31/12/2012: Description: s/\bwork place\b/new year/ig Reason: return $keys and find($motel_room, { distance => 'walking', }) if my($blood_alcohol_content) gt 2;

    Want to make sure everyone gets back in the new year. :-)

    --MidLifeXis

      Nope but I omit some constant:
      Description: s/\bwork place\b/new year/ig Reason: return $home if my($blood_alcohol_content) gt 2 and (my($roo +mmate) eq 'like driving' or my($roommate) ne 'be driven');
      Is it any better? m//

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://1008317]
Approved by SamCG
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (18)
As of 2014-12-18 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (58 votes), past polls