Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

sunshine dot pl

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

It's a really lovely day here in Oxford, UK!
#!/usr/bin/perl #, 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:

Replies are listed 'Best First'.
Re: sunshine dot pl
by greatshots (Pilgrim) on Mar 10, 2007 at 06:44 UTC
    #!/usr/bin/perl #, 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' ); }
Re: sunshine dot pl
by Sixtease (Friar) on Mar 09, 2007 at 20:18 UTC

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (2)
As of 2024-06-14 23:12 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.