Foro - Perl en Español

por **Ryo_Akiyama** » 2008-07-13 11:31 @521

Veréis, tengo la siguiente duda:

Estoy haciendo una web que utiliza un programa hecho en Perl situado en mi servidor web.

El caso es que ese programa en Perl recibe un parámetro (obtenido mediante un textarea de la página) y lo trata.

He probado a hacer un pequeño programa en Perl de prueba, y utilizando la función exec en PHP he conseguido ejecutarlo enviándole el parámetro del textarea.

Pero sin embargo mi programa grande (que tiene 5 "use"), al ejecutar la función exec en PHP no se ejecuta como es debido, si comento las líneas "use", sí funciona, pero claro, no funciona correctamente porque ese programa necesita esas líneas para su correcto funcionamiento.

No sé si me he explicado mal, jeje.

El caso es que necesito ejecutar desde PHP un programa en Perl enviándole un parámetro y o bien la función exec no funciona bien aquí, o es que estoy haciendo algo mal.

Si alguien tiene alguna idea de esto agradeceré su ayuda.

PD: No sé exactamente en qué subforo irá esto, ni tampoco a qué nivel corresponde. Lo siento.

#!c:\Perl\bin\perl.exe

use strict;
use CGI;
use Tokenizador;# Extrae los vectores a partir de un documento
use Modelo;# Constuye el modelo a partir de un corpus 
use Clasificador;# Clasifica un documento 

my$carpeta_corpus=".\\corpus\\";
my$carpeta_modelo=".\\modelo\\";

my@array=@ARGV;
my$cadena=join(" ",@array);
print$cadena;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cuando la pagina PHP ejecuta el programa no imprime nada por pantalla, sin embargo si comento las líneas de 'use' me imprime la cadena ($cadena).

Por cierto, los paquetes Tokenizador, Modelo y Clasificador son archivos .pm que se encuentran en la misma ruta que el programa .pl.

por **explorer** » 2008-07-13 14:02 @626

A ver... hay que tener una serie de conceptos claros...

¿Qué quieres decir con 'imprimir por pantalla'? ¿Salida estándar del programa en un terminal o ventana de línea de comandos o una página web?

¿El código PHP lo va a recibir cómo? ¿Como una cadena de texto o como una cadena de html?

En cuanto a los hilos en los que se comenta Perl con PHP: viewtopic.php?t=2093&highlight=php

por **Ryo_Akiyama** » 2008-07-13 14:31 @647

Imprimir por pantalla me refiero a la página web.

PHP ejecuta:

Código: Seleccionar todo: exec ($comando, $salida, $return)

donde

Código: Seleccionar todo: $comando="perl ../cgi-bin/clasifica_texto.pl $queja"

Esa página PHP imprime varias líneas, entre ellas el resultado del print del programa en Perl.

Asimismo si imprimo (siempre desde PHP) $salida me muestra la salida del programa (lo que sería la salida estándar, solo que al ejecutar PHP el programa lo muestra en la página web).

por **explorer** » 2008-07-13 17:05 @753

Prueba a poner la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI::Carpqw(fatalsToBrowser);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

después de la del 'use CGI;'. Así, si se trata de un error, lo intentará sacar por la pantalla.

Aunque solo funcionará si la salida estándar y la salida de error estándar están bien redirigidos al exec() del PHP.

En la lista que te mando recomiendan usar passthru().

Otra cosa recomendable sería poner el camino al programa Perl en modo absoluto, no relativo (quitar los '..' del path).

También puedes probar a ir poniendo un 'use' cada vez y así saber cuál es el causante del fallo.

Otra cosa: cambia el último print del programa Perl con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"[$cadena]";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Así estarás seguro de qué es lo que devuelve.

Foro - Perl en Español

Ejecutar Perl desde PHP

Ejecutar Perl desde PHP

Publicidad

¿Quién está conectado?