Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Web » Javascript en perl Responder al tema
Nuevo tema


Página 1 de 1  [ 3 mensajes ] 
 
Nota 2011-03-31 10:00 @458

Perlero Nuevo
Registrado: 2011-03-31 09:45 @448
Mensajes: 11
Javascript en perl
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:

Syntax: [ Download ] [ Hide ]
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.  


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


Nota 2011-03-31 10:25 @476
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10261
Re: Javascript en perl
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


Nota 2011-04-02 06:48 @325

Perlero Nuevo
Registrado: 2011-03-31 09:45 @448
Mensajes: 11
Re: Javascript en perl
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


Responder al tema  [ 3 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO