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

Re: How do I love thee? Let me iterate the ways

by zakzebrowski (Curate)
on Sep 07, 2004 at 12:16 UTC ( #389000=note: print w/ replies, xml ) Need Help??


in reply to How do I love thee? Let me iterate the ways

What about...

print "How do I love thee? "; &let_me_count_the_ways; sub let_me_count_the_ways{ open (WAYS,"<reasons.txt"); my @of_my_ways = <WAYS>; my $count=0; foreach (@of_my_ways){ $count++; print "$count, $_\n"; } close WAYS; print "$count ways I love thee.\n"; }

PS. First poem post...


----
Zak - the office


Comment on Re: How do I love thee? Let me iterate the ways
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2014-09-17 09:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (70 votes), past polls