Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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
[sierpinski]: Corion I haven't -- but it sounds like you could corner the market on such a tool if you desired.
Discipulus if thezip is still around can be interested into How to hide/inhibit the console window when launching a Perl script on Windows?
[Corion]: sierpinski: Yes, but I don't want to write Javascript in a more involved way ;)

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (12)
As of 2017-03-27 19:16 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (321 votes). Check out past polls.