Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

sunshine dot pl

by ciderpunx (Vicar)
on Mar 09, 2007 at 12:43 UTC ( #603979=poem: print w/ replies, xml ) Need Help??

It's a really lovely day here in Oxford, UK!
#!/usr/bin/perl # sunshine.pl, by charlie foreach (@sunny, @march_day) { my $smile++ } foreach (@cherry, @blossom) { our $world = $lovlier } foreach (@spring, @daffodil) { local $park = `more beautiful` } until ($nimbostratus++ and $drizzle++) {sub merge { $us and $once_mo +re; return }} tell ($work,$you,$are,$ill); split /the/, $joint; seek $comfy,$place,$somewhere and $get . cos($y); chomp $spring_greens; pop @a_beer; write $perl or read $a, $good, $novel; study; $the_sky and $laze; $daydream or $ponder; {($let, $the, $good, times, $roll)} while ($the) { s/un/ shin/es };
--
Linux, perl, punk rock, cider: charlieharvey.org.uk.

Comment on sunshine dot pl
Download Code
Re: sunshine dot pl
by Sixtease (Friar) on Mar 09, 2007 at 20:18 UTC
    *applauds*
Re: sunshine dot pl
by greatshots (Pilgrim) on Mar 10, 2007 at 06:44 UTC
    #!/usr/bin/perl # sunshine_here.pl, by greatshots if ( $ARGV[0] eq 'March to June' ) { #Summer foreach (@days, @these_days) { my $smile++ if /atleast_drizzles/ } pop @a_beer if ( $gender eq 'male' ); pop @a_juice if ( $gender eq 'female' ); } if ( $ARGV[0] eq 'June to October' ) { #Rainy foreach (@days, @these_days) { mfruiy $smile++ if /sunshines/ } push @a_pattai_sarakku if ( $gender eq 'male' ); push @masala_tea if ( $gender eq 'female' ); } if ( $ARGV[0] eq 'November to March' ) { #Winter foreach (@days, @these_days) { my $smile++ if /sunshines/ } get @a_beedi if ( $gender eq 'male' ); get @a_spicycorn if ( $gender eq 'female' ); }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-10-21 10:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (99 votes), past polls