Pasar variables desde PHP a Perl

[iquei]

¡Hola!
Haber si me podeis ayudar, tengo que pasar variables desde una funcion Curl_exec() en PHP a un archivo perl y no se como hacerlo.
Gracias, Salu2

[Netyco]

Tengo entendido que esa funcion devuelve True o False, pues para pasarlo, puedes hacerlo por el metodo mas simple, por GET. podria ser algo asi...

Código PHP:

  
$resultado=curl_exec($valor);

if(!$resultado){
   header("location:http://www.tu-sitio.com/paginaperl.pl?valor=false";
}else{
   header("location:http://www.tu-sitio.com/paginaperl.pl?valor=true";
} 
   

Luego, recuperas ese valor por medio de programacion con PERL

espero que te sirva...

[iquei]

Gracias por contestar, he hecho lo que me dices y me devuelve una pagina con el mensaje 502 Bad Gateway, te pongo el codigo que estoy usando, de lo que trato es de mandar una variables a un archivo perl para me calcule una firma y me devuelva el calculo, esto es porque mi servidor no soporta exec() y en su lugar estoy usando curl_exec(), este es el codigo en PHP:

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'aqui pongo la direccion "$Num_operacion" "$Importe"');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$resultado = curl_exec($ch);
if(!$resultado){
header("location:es que no me deja poner la direccion en el foro.pl?ch=false");
}else{
header("location:es que no me deja poner la direccion en el foro.pl?ch=true");
}

Gracias, salu2

[jackson666]

Porque no generas un xml con php y lo lees con perl?

[iquei]

Pues, porque no se, si se puede hacer y como se hace.
Si me podriais ayudar, os lo agradeceria.
Gracias.

[jackson666]

php.net->clase DOMDocument->metodos createElement, createTextNode, appendChild, saveXML
un rato de paciencia, enojo, y logros =)

[iquei]

Gracias jackson666, podrias decirme algun manual o tutorial, donde poder ver esto que me dices.
Salu2

[jackson666]

Nada mejor que un ejemplo:

Código PHP:

  <?php
$html=new DOMDocument();
$html->formatOutput=true;//les agrega tabulado para q se vea mas lindo

$body=$html->createElement("body");

$html->appendChild($body);

$div=$html->createElement("div");
$metotxt=$html->createTextNode("Div Generado con PHP mediante la creacion de un XML manipulado con DOM");
$div->appendChild($metotxt);
$div->setAttribute("id","php");
$div->setAttribute("style","-moz-border-radius:15px");

$body->appendChild($div);

echo $html->saveXML();
?>   

[iquei]

Perdona mi ignorancia, donde pondria este codigo, quitaria el que tengo:
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'aqui pongo la direccion "$Num_operacion" "$Importe"');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$resultado = curl_exec($ch);
if(!$resultado){
header("location:es que no me deja poner la direccion en el foro.pl?ch=false");
}else{
header("location:es que no me deja poner la direccion en el foro.pl?ch=true");
}
y pondria el que me dices, ya te digo que no tengo ni idea de xml.
Gracias.

[jackson666]

Ejecutaste el codigo que te di?? No viste que genera?? sabes que es XML??

[iquei]

He ejecutado el codigo que me distes y me devuelve esto:
Div Generado con PHP mediante la creacion de un XML manipulado con DOM

No se que es XML, pero por el codigo que me has dado, creo que puede ser algo parecido al HTML un lenguaje de etiquetas o algo así.
Gracias.

[jackson666]

exacto! el xml es un lenguaje de etiquetas! Sirve oara la comunicacion entre distintos lenguajes. Si te fijas, cuando ejecutas el script y pones en tu navegador click derecho-> ver codigo fuente te aparece en el html el div con el id que le puse y el style que se le agrega =)
Lo que deberias hacer es algo parecido solo que inertando en vez de un div alguna etiqueta con el nombre que mas te guste y en el medio la info que necesites pasar al otro lenguaje, se entiende?

Buscate en wikipedia las definiciones de XML, DOM estan muy bien explicadas a mi gusto =)

[iquei]

Ok, voy a intentarlo, creo que lo he entendido, cuando lo tenga y lo pruebe te digo que me pasa.
Una duda, como llamo al archivo .pl, dentro del codigo donde lo pongo.
Gracias.

[jackson666]

Eh??
vos tenes que generar esto con php
<arboldedatos>
<dato1>
<nombre>Tu Nombre</nombre>
<especificaciones>Algo</especificaciones>
</dato1>
<dato2>
<nombre>Tu Nombre2</nombre>
<especificaciones>Algo2</especificaciones>
</dato2>
</arboldedatos>

Y luego buscar las funciones DOM de perl y leer eso!