How to pass a block of code, as a parameter to function.

[Muttley Meen]

I searched around for a construct to permit for a block
of code to be passed as parameter, but with no success.

The thing that I'm after is this :
<code>
sub foo {
   $p1 = shift ;
   $p2 = shift ;

   print "Param1 = $p1\n" ;
   eval $p2 ;
}


foo("test") {
   print "depth 1\n" ;
}
</code>

<output>
   Param1 = test
   depth 1.
</output>

The closest thing I managed, was to pass the block as an array,
but the syntax gets strange and hard to follow.

foo("test", [ print "depth 1\n" ] )

Any suggestions ?

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>