http://qs321.pair.com?node_id=85541 

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;

[download]

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

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

                - Ant

Replies are listed 'Best First'.
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 :)
[reply]
(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

[reply]
[d/l]
      I thought about trying to put bless in there somewhere... but I'm not religious... :)

                      - Ant

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

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

    
   <°)))><             ~      ~

  ~            ><(((°>

        ~

    [download]

    EOT

[reply]
[d/l]
      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.
[reply]

Back to Perl Poetry