• Publicidad

Javascript en perl

Todo lo relacionado con el desarrollo Web con Perl: desde CGI hasta Mojolicious

Javascript en perl

Notapor manu8c » 2011-03-31 10:00 @458

Primero de todo, hola y gracias por el gran foro que tienes montado. Gracias a él he resuelto la mayoría de dudas que me han surgido en el PFC.

Pero ahora hay una que no consigo resolver.

Pongo un poco de código:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!"C:\xampp\perl\bin\perl.exe"
  2.  
  3. use DBI;
  4. use CGI;
  5.  
  6. print "Content-type: text/html\r\n\r\n";
  7.  
  8. print html();
  9. javaS();       
  10. print tittle();
  11. print body();  
  12. ......
  13.  
  14. print "<select class='select' id='order' name='order' multiple size='6'>" ;
  15.  
  16.     print "<option value='1'>uno</option>";
  17.     print "<option value='2''>dos</option>";
  18.      print "<option value='3'>tres</option>";
  19. print "</select>";
  20.  
  21. print "<input type='button' value='TO RIGHT' onclick='right()'>";
  22.  
  23. print "<select class='select' id='orderOk' name='orderOk' multiple size='6'>" ;
  24.  
  25. print "</select>";
  26.  
  27. sub javaS
  28. {
  29.        
  30.         print "<script>";
  31.         print "function right() {";
  32.         print "obj=form1.getelementbyid('order');";
  33.         print "alert('HELLO');";
  34.        
  35.         #print "if (obj.selectedindex==-1) return;";
  36.         #print "valor=obj.value;";
  37.         #print "txt=obj.options(obj.selectedindex).text;";
  38.         #print "obj.options[obj.selectedindex]=null;";
  39.         #print "obj2=document.getelementbyid('OrderOk');";
  40.         #print "opc = new option(txt,valor);";
  41.         #print "eval(obj2.options[obj2.options.length]=opc);"; 
  42.         print "}";
  43.         print "</script>";
  44. }
  45.  
  46.  
  47.  
  48.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Si pongo esta línea el aviso, Hello no aparece:
print "obj=document.getelementbyid('order');";


Lo he intentado hacer con formularios, aunque no sería lo que quisiera, y de todas maneras no he podido.

A ver si me puedes echar una mano a pasar que funcione el código.

Supongo que será algo del document... pero hay cosas de la programación web que se me escapan.

Gracias
manu8c
Perlero nuevo
Perlero nuevo
 
Mensajes: 11
Registrado: 2011-03-31 09:45 @448

Publicidad

Re: Javascript en perl

Notapor explorer » 2011-03-31 10:25 @476

Bienvenido a los foros de Perl en español, manu8c.

Si hay un problema con el código JavaScript, el propio navegador te puede ayudar un poco a saber dónde está el fallo.

Abre el Firefox, menú Herramientas, y saca la Consola de errores. Quizás tengas que limpiar la lista de errores, para que esté vacía.

Ahora, carga la página del CGI. Si hay un error en la interpretación del código JavaScript, saldrá ahí.
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

Re: Javascript en perl

Notapor manu8c » 2011-04-02 06:48 @325

Muchas gracias por la respuesta.

Después de toda la noche dándole vueltas, a la media hora de poner la pregunta en el foro encontré la solución. Y la solución es la más tonta que existe.

getElementById, y no getelementbyid.

Lo que tiene no estar acostumbrado a la programación web.

Gracias
manu8c
Perlero nuevo
Perlero nuevo
 
Mensajes: 11
Registrado: 2011-03-31 09:45 @448


Volver a Web

¿Quién está conectado?

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

cron