in reply to How do I love thee? Let me iterate the ways
What about...
PS. First poem post...
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...
|
---|
In Section
Perl Poetry