Foro - Perl en Español

Hola mi pregunta es cómo puedo ejecutar un script o alguna línea de PHP dentro de mi aplicación en Perl.

Con system, por ejemplo...

Código: Seleccionar todo

system( 'php', '-r', 'echo "Hola\n";' );

O con qx:

Código: Seleccionar todo

print qx(php -r 'echo "Hola\n";' );

Naturalmente, el ejecutable php debe estar en el PATH para que le encuentre Perl...

Otra opción es usar algún módulo, como por ejemplo el PHP.pm:

Código: Seleccionar todo

use PHP;
PHP::eval('echo "Hola\n";');

Este módulo tiene cosas muy interesantes. No dejes de mirarlo.

Otro es PHP::Include, para incluir pequeños programas PHP dentro del código del Perl, pero parece que está un poco verde.

Otro es PHP::Interpreter

Código: Seleccionar todo

use PHP::Interpreter;
my $php = PHP::Interpreter->new();
$php->eval(' echo "Hola\n"; ');
$php->echo("Hola\n");
$php->include("mi_script.php");


que parece que es mucho mejor, ya que se pueden pasar diréctamente las variables de PHP a Perl y viceversa, o incluso ejecutar código Perl dentro del de PHP.

Código: Seleccionar todo

  <?php
    $perl = Perl::getInstance();
    $perl->eval(q^
      for( reverse(1..10) ) {
        print "$_ segundos para el despegue.\n";
        sleep 1;
      }
    ^);
  ?>

Si pruebas alguno, dinos lo que te parecen...