Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Fish dinner

by suaveant (Parson)
on Jun 04, 2001 at 22:12 UTC ( #85541=poem: print w/ replies, xml ) Need Help??

use Carp; unpack fish, spices; croak fish if $alive; study recipe, pop in, time; BEGIN {meal}; tied %bib; scalar fish; fork, split; sqrt lemon; glob tartarsauce; chop, open(MOUTH), chomp; unlink flesh; truncate bone, chomp; untie %bib; push plate; END {meal}; sleep now;

Update added line about cooking... (line 4)

Update2 DOH! thanks to premchai21 for pointing out tatarsauce...

                - Ant

Comment on Fish dinner
Download Code
Re: Fish dinner
by AidanLee (Chaplain) on Jun 04, 2001 at 22:27 UTC
    i'll never look at the square root function the same way again :)
(zdog) Re: Fish dinner
by zdog (Priest) on Jun 04, 2001 at 22:32 UTC
    Nice! But you forgot to make the fish confess () before you croaked it ... j/k.

    Zenon Zabinski | zdog | zdog7@hotmail.com

      I thought about trying to put bless in there somewhere... but I'm not religious... :)

                      - Ant

Re: Fish dinner
by fglock (Vicar) on Jul 11, 2002 at 18:21 UTC

    my $Mmmm = $Yummy and chomp <<&EOT;

    <)))>< ~ ~ ~ ><(((> ~

    EOT

      I'm having trouble with the ampersand between the "<<" and the "EOT". So is Perl 5.6.1:
      Operator or semicolon missing before &EOT at test.pl line 4.
      Ambiguous use of & resolved as operator & at test.pl line 4.
      And then there's this:
      Can't modify scalar in chomp at test.pl line 4, near "&"
      At least, it should compile. IMO.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (18)
As of 2014-11-26 14:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (171 votes), past polls