Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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

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 :)
(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?
[Your Mother]: Stick with what you know. Or post a SOPW and if it's not complicated I guarantee someone will answer; me if it's straightforward and no one else gets it better first.
[1nickt]: ++YourMother (Grammar Vigilante of Bristol)
[Lady_Aleena]: Um, how does grep do multiline? print "$file:$_" if grep { /get_(array|hash| data)\(.+\)/ } $_; only returns the same 18 lines the command line grep does.
[Lady_Aleena]: my scratchpad has what I have so far.
[choroba]: what do you mean by multiline?
[Discipulus]: thanks 1nickt!
[choroba]: grep is a filter, it selects elements from a list based on a boolean condition
[moritz]: you need to read the file in one go to do a multiline regex match
[erix]: ha ha, I like the Vigilante
[Lady_Aleena]: Forget it. I'm getting angry with it.

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2017-05-23 19:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?