Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Late Spring

by PhillipHuang (Sexton)
on Aug 04, 2011 at 05:23 UTC ( #918441=poem: print w/replies, xml ) Need Help??

My first try.

#!/usr/bin/perl use strict; use warnings; my $blossoms; my $orioles_sound; my $frog_sound; my $listen; my $count; $blossoms = "fallen"; if($blossoms eq "fallen"){ print "No one cares the $blossoms blossoms.\n"; print "Only shades of trees spreading.\n\n"; } $frog_sound = "frogs croaking"; $orioles_sound = "orioles singing"; $count = 12; while($count > 0){ $listen = join(',',$frog_sound,$orioles_sound); print "There are $listen.\n"; $count--; if($count == 0){ $listen = $frog_sound; print "\nOrioles emit no more sound.\n"; print "I alone listen to $listen.\n"; } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://918441]
Front-paged by Arunbear
[PriNet]: i guess i'll just have to use two seperate hashes, there are two, but one is larger than the other, and when i reference the smaller one, it holds onto the values that were assigned to the larger hash (the keynames change, but unless i reassign a new valu

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2017-06-28 03:04 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (619 votes). Check out past polls.