• Publicidad

Cargar un script de Perl como JavaScript

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Cargar un script de Perl como JavaScript

Notapor stormblues » 2006-02-23 10:14 @468

Hola, muy buena la página.

Estoy empezando con Perl, y tengo el siguiente problema, espero alguien me pueda ayudar. Muchas gracias, si es así.

Necesito cargar un script cgi en un archivo html, tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]
Using html4strict Syntax Highlighting
  1. <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  2.                 <tr>
  3.                   <td><script language="JavaScript" src="http://www.mysitio.cl/cgi-bin/bienvenida.cgi"></script></td>
  4.                 </tr>
  5.               </table>
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4

De antemano, muchas gracias. :D
stormblues
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2006-02-23 09:54 @454

Publicidad

Notapor kidd » 2006-02-23 10:26 @476

Hola.

Pues realmente tendríamos que ver el contenido, pero podrías tener un script con algo así:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print "Content-type: text/plain\n\n";
  2. print "alert(\"Wow! Mi script se cargó de manera correcta\");\n";
  3.  
  4. exit(1);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Y usando el código HTML que tienes te debe de salir la alerta de manera correcta.


SALUDOS
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor stormblues » 2006-02-23 10:34 @482

Este es el código que debería cargar...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. print "Content-type: text/html\n\n";
  3. print "{\n";
  4.  
  5. open( arch0, "<bienvenida.log" );
  6. @entries0 = <arch0>;
  7. close arch0;
  8.  
  9. foreach $linea (@entries0) {
  10.     @lin = split( /\n/, $linea );
  11.     $am = substr( $lin[0], 0, length( $lin[0] ) - 1 );
  12.     print
  13.         "document.write(\"<p align=\\\"justify\\\"><font size=\\\"2\\\" face=\\\"Arial, Helvetica, sans-serif\\\">$am</font></p>\");\n";
  14. }
  15.  
  16. print "}\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Muchas gracias.
stormblues
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2006-02-23 09:54 @454

Notapor stormblues » 2006-02-24 11:14 @510

¿¿¿ alguien podrá ayudarme ???
stormblues
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2006-02-23 09:54 @454

Re: Cargar un scipt de Perl como JavaScript

Notapor explorer » 2006-02-24 11:33 @523

Eso está mal... estás intentando enviar un HTML (el content-type pone text/html) pero no mandas ninguno.

En lugar de las clásicas marcas <html>...<head>...<body>...</html> lo que estás haciendo es enviar un trozo de un código Javascript.

Si pretendes que este cgi responda con una página HTML completa, eso es lo que tienes que devolver, no un trozo. Y si este cgi sólo tiene que devolver un trozo de Javascript, debes cambiar el content-type a application/x-javascript.

Según pones en el primer mensaje, lo que quieres es "cargar un cgi en un archivo html". Yo entiendo que quieres ejecutar el cgi y que devuelva el trozo de Javascript que debe ir en ese lugar, con lo que estamos en el segundo caso.

Prueba a ver...
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: Cargar un scipt de Perl como JavaScript

Notapor explorer » 2006-02-24 11:34 @524

Es importante que veas en los registros de actividad del servidor web los errores, porque ellos te darán pistas de qué es lo que está pasando.
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 stormblues » 2006-02-27 14:49 @659

Hola, muchas gracias por tu ayuda, lamentablemente no tengo acceso a los errores que arroja el servidor, ya que está corriendo en un alojamiento Linux. :| :?
stormblues
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2006-02-23 09:54 @454

Notapor macgregor » 2006-02-28 08:02 @376

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;


Si no tienes acceso a los logs del Apache te recomiendo que empieces tus cgi con estas líneas. Así verás los errores en el navegador.
MACGREGOR [TM]
Avatar de Usuario
macgregor
Perlero nuevo
Perlero nuevo
 
Mensajes: 80
Registrado: 2004-12-09 07:32 @355
Ubicación: españa


Volver a Básico

¿Quién está conectado?

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

cron