Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

marital status

by silent11 (Vicar)
on Feb 28, 2002 at 22:12 UTC ( #148407=poem: print w/ replies, xml ) Need Help??

I'm not sure if this is poetry or not, I'll yet yall be the judge of that.
I guess this is a follow-up node to a past poll, Top goal for the upcoming new year.

I'm getting married in 16 days and I guess I just wrote this little script to make light some of my fears on the subject.

Enjoy,

-Silent11
# use FinalDays::SingleMan; use strict; my $self = 'single'; my $money = 300; my $free_time = 10; my @hard = ('perl','quake', 'basketball', 'the guitar', + 'some more perl','ping-pong'); my @friends = qw(Steve Julie Nathan Colin Jody); my @bills = ('the bills', 'the rent', 'and the expenses' +); my $life = 'undef'; my $in = 3; if ($self eq 'single') { your($self); sleep($in); play(@hard) if $free_time > 0; go_places(@friends); spend($money) if $money; $life = 1; } else { #require patience; $life = 0; my $freedom = 0; $self = 'married'; your($self); unless ( ($self =~m/work/) && (pay(@bills)) ) { loose('my job','my spouse','the car','the nice apartme +nt','and everything'); go_back(2,"my parent's house"); } } ############## subs ################ that actually make it work ! sub spend { my $savings = shift; my $expenses = 200; my $net_worth = ($savings - $expenses); print "\n\nCrap! I'm broke! I've only got $net_worth dollars!! \n +\n Well .....at least I'm still single!!"; sleep(2); print "\n\n The End"; print "\n\n -Silent11"; print "\n\n (getting hitched Mar 16 2002)"; } sub play { my @fun = @_; print "In the meantime.....\n\n"; sleep($in); foreach my $pasttime (@fun) { print " ( enjoying $pasttime )\n\n"; sleep($in-2);} sleep(2); } sub pay { return 0; } sub go_places { my $good_friends = join(', ',@_); print "\"hey, $good_friends, let's all go out!\" \"I'm still sing +le!!!!\""; sleep(3); } sub loose { my $the_bills = join(', ',@bills); my $things = join(', ',@_); print "This is tough!!!\n\n"; print "I forgot to pay $the_bills and I lost $things\n\n"; sleep(1);} sub go_back { print "Shucks! This marriage thing didn't work out, I'm back living in + @_[1]\n\n"; sleep(4); print "\n\n Just Kidding !!!!"; } sub your { print "\n\n\nI'm @_[0] !!!!!! \n\n"; }

Comment on marital status
Download Code
Re: marital status
by tfrayner (Curate) on Mar 01, 2002 at 12:24 UTC
    Well, I liked it :-)

    Best wishes for the wedding etc.

    Coupla minor points: if you use $_[0] and $_[1] instead of @_[0] and @_[1] this runs under -w without throwing up warnings. Of course, you're probably just readying up for perl 6 :-)

    On a slightly more frivolous note, why not put a random chance of $self='married' in sub go_places or sub play and iterate over the whole thing: perl life.pl :-)

    - Tim

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2015-07-06 10:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (71 votes), past polls