#!perl -w
# athlete_piggy.pl -- a poem of sorts

use strict;

my @toes = map
  'This little piggy ' . chomp($_) . '.',
  <DATA>;

print "$_\n" for @toes;

__DATA__
went to the market
did not
got dried well
did rot
went "scratch, scratch, scratch" all the way home

[download]

Replies are listed 'Best First'.
Re: Do pigs get athlete's foot?
by srawls (Friar) on Jun 29, 2001 at 02:13 UTC
    um... Did you test this? You might want to check the return value of chomp. If you don't want the newline you can do this: 
    /(.*)/

    [download]
    but why even bother, just change that last print to 
    print @toes

    [download]
    Then you don't have to take off those new lines in your map statement.

    The 15 year old, freshman programmer,
    Stephen Rawls

[reply]
[d/l]
[select]

      "Did you test this?" Test 'poetry'? No. But after you pointed it out, I did and see what you mean. Note the revised edition:

      ...
my @toes = map
  "This little piggy " . $_,
  <DATA>;

print @toes;
...

      [download]
[reply]
[d/l]

Back to Perl Poetry