note
tobyink
<p>An embedded Perl interpreter for PHP <a href="http://pecl.php.net/package/perl">does exist</a> but it's a pretty bizarro thing to do.</p>
<p><b>Update:</b> the following works here:</p>
<c>
<?php
$perl = new Perl();
$perl->eval(<<<'PERL'
sub add_two {
my $n = shift;
return $n + 2;
}
PERL
);
echo "add_two(3) is ... ", $perl->add_two(3), "\n";
</c>
<p>Interestingly when running <c>print "$^X $]"</c> in the embedded Perl, I get: <c>/usr/bin/php 5.010001</c> (that version number happens to correspond to my operating system's pre-packaged version of Perl).</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1008154
1008154