• Publicidad

Problema al devolver un valor desde Perl a PHP

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Problema al devolver un valor desde Perl a PHP

Notapor danimera » 2009-02-03 12:34 @565

Resulta que estoy utilizando el modulo HTML::GoogleMaps y deseo obtener el script generado solamente, que me devuelva para mostrarlo en una página PHP, intenten ejecutar el archivo desde Ajax pero no me muestra el mapa y no he logrado devolver la variable donde tiene el código JavaScript generado por el módulo.

Con Ajax sí puedo retornar un valor o que cargue el contenido en un DIV, pero tengo problemas con las funciones.

Y no quiero utilizar iframe, porque sería superfacil así, jejeje :P

Obviamente intenté varias cosas que podrán ver ahí, hasta mirando los otros posts, pero nada, no he podido.

Este es mi código.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -w

use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);
use warnings;
use lib('/home/hacienda/perl');
use HTML::GoogleMaps

$map_key ="ABQIAAAAtAMCnHp62uPNmIo29GJPDxTIcsmRybTV2L0onpnxWDriga4vXxRUo05dmh_YS2dEqg25eGEDZhl68g";

#print header;

#print "Content-type: text/javascript\n\n";




  $map = HTML::GoogleMaps->new(key => $map_key);
  $map->center("3.428829451139014, -76.52620196322468");
  #$map->add_icon(name => $icon_name, image => $image_url, shadow => $shadow_url, icon_size => [ $width, $height ], shadow_size => [ $width, $height ], icon_anchor => [ $x, $y ], info_window_anchor => [ $x, $y ]);
  $map->v2_zoom(15);
  $map->controls("small_zoom_control");

  $map->add_icon(name => 'name2',
                                image => 'http://www.haciendagualcala.com/hostel.jpg',
                                shadow => 'http://www.haciendagualcala.com/hostel.jpg',
                                icon_size => [ 50, 50 ],
                                shadow_size => [ 50, 50 ],
                                info_window_anchor => [ 10, 10 ],
                                icon_anchor => [10,10 ]);
        $map->add_icon(name => 'name',
                                image => 'http://www.haciendagualcala.com/aero.jpg',
                                shadow => 'http://www.haciendagualcala.com/aero.jpg',
                                icon_size => [ 50, 50 ],
                                shadow_size => [ 50, 50 ],
                                info_window_anchor => [ 10, 10 ],
                                icon_anchor => [10,10 ]);

        $map->add_marker(noformat => 1,
                                        point => "3.428829451139014, -76.52620196322468",
                                        html => 'hola mundo',
                                        icon => "name",l);
        $map->add_marker(noformat => 1,
                                        point => "3.428789556632, -76.5298055548",
                                        html => 'hola mundo',
                                        icon => "name2",l);

    $map->add_polyline(points => [ "3.428829451139014, -76.52620196322468", "3.428789556632, -76.5298055548" ],  color=>'#550000');

  my ($head, $map_div) = $map->onload_render;

#return ($head, $map_div);

#print "<html>";
#print "<head>";
#print "$head";
#print "</head>";
#print '<body onload="html_googlemaps_initialize()">';
#print $map_div;
#print "</body>";
#print "</html>";
#print ($head);
#exit($head);

$prueba = 1;
$prueba_result = $prueba + 1;
$result = $prueba_result;
print $prueba_result;
exit($result);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Deseo retornar $head y $map_div como dos variables aparte a mi código PHP,

Sintáxis: [ Descargar ] [ Ocultar ]
  1. <html xmlns="http://www.w3.org/1999/xhtml"> 
  2.  
  3. <head> 
  4. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
  5. <title>Sin título 1</title> 
  6. <script type="text/javascript" src="isiAJAX.js"></script> 
  7. <script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAAtAMCnHp62uPNmIo29GJPDxTIcsmRybTV2L0onpnxWDriga4vXxRUo05dmh_YS2dEqg25eGEDZhl68g" type="text/javascript"></script> 
  8. <script language="javascript" src="map.pl"></script> 
  9. <? 
  10. exec ("maps.pl", $salida, $return); 
  11.  
  12. //print ($salida); 
  13.  
  14. $result_search = system("maps.pl",$result);  
  15.  
  16. print $result.$result_search; 
  17. ?> 
  18.  
  19. </head> 
  20.  
  21. <body onload="html_googlemaps_initialize();"/> 
  22. <a href="javascript:;" onclick=" html_googlemaps_initialize();">CLICch here</a>  
  23. <a href="javascript:myajax.Link('maps.pl', 'map3')" onclick="">CLICch here</a>  
  24. <div id="map" style="width:600px;" > 
  25. </div> 
  26.  
  27.  
  28. <a href="javascript:myajax.Link('maps.pl', 'map')" onclick="">CLICch here</a>  
  29.  
  30.  
  31. <a href="javascript:;" onclick=" html_googlemaps_initialize();">CLICch here</a>  
  32. </body> 
  33.  
  34. </html> 


Hasta quise usar el cgi como un script JavaScript, pero tampoco.
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Publicidad

Notapor explorer » 2009-02-03 14:23 @641

Ya hay un par de hilos al respecto de pasar información de Perl a PHP...

Y... ¿no sería mejor usar solo Perl?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor danimera » 2009-02-03 18:23 @808

Bueno, ya intenté con los hilos de acá y no logré resultado de lo que deseo...

Lo que pasa es que es un portal que ya esta hecho en PHP, entonces ni modo de usar solo Perl...

Toco por la opción del iframe. Nada que hacer.
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia


Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron