... I have a question for you: 
#!/usr/bin/perl

$amount = 0;
eval '$amount = scalar @wood if (woodchuck->chuck(@wood))';
print "$amount: " => ($amount or $@);

[download]
Well, maybe not so much poetry as a perl version of an old riddle, or rhyme, whichever it is... :) Also, it is an extra trip down memory lane for those who used to play the old Monkey Island games... thus the title of this node.

Moreover, if you still are stuck in that old game *grin*, or just wonder about the answer - run the program and it will tell you... well, that is, it will, the way perl expresses itself. :)

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.

Replies are listed 'Best First'.
Re: Greetings, Mr. Threepwood...
by biograd (Friar) on Mar 30, 2002 at 08:11 UTC
    0: Can't locate object method "chuck" via package "woodchuck" at (eval 1) line 1.

    This is what I get. So, our friend woodchuck chucks nothing? If I got the entirely wrong punchline, I won't be surprised. It's 2:30am and everything is a little fuzzy right now. :)

    I like it, though.

    -ljb

[reply]
[d/l]
      That is correct, our friend the woodchuck chucks nothing. It is, like I said, something between a riddle and a childrens rhyme or something, and it was also in one of the Monkey Island games. To explain further, here is the original version (I think I got it right):
      How much wood would a woodchuck chuck if a woodchuck could chuck wood?
      As you can see, it is another one of those She sells seashells at the seashore... toungedamagers. :)

      And the reply, in English instead of in perl-compilerish, is as follows:

      A woodchuck would chuck no amount of wood, since a woodchuck can't chuck wood.
      Hope that makes it a bit clearer... :) And thanks!

      You have moved into a dark place.
      It is pitch black. You are likely to be eaten by a grue.
[reply]

Back to Perl Poetry