🚀 go-pugleaf

El Thu, 14 Aug 2003 16:20:15 +0200, Count Zero 
 <mark@l3jane.net> dijo:
> Aunque llevo ya un tiempo haciendo mis programillas y scripts en perl (y
> retocando algunos que pasan por mis manos), sin ning�n problema y un �xito
> bastante satisfactorio (IMHO), no hay forma de que me funcionen los
> scripts Perl-CGI que hago.
> 
> Mi intenci�n:
> 
> Hacer un script CGI con perl, que devuelve al servidor una p�gina HTML con
> el contenido de un fichero determinado. Al final de la misma pagina hay
> un formulario con ACTION al mismo script que permite a�adir una nueva
> l�nea al fichero en question.
> 
[....] 
> # leo los parametros del formulario 'date' y 'event'
> my $date=param("date");
> my $event=param("event");
> 
> Al ejecutar la prueba 'cat fichero | ./script-cgi > ~/page.html'
> 
> Me suelta esto:
> 
> Name "main::end_table" used only once: possible typo 
> 	at ./eventlog line 109.
> Name "main::start_table" used only once: possible typo 
> 	at ./eventlog line 103.
> Use of uninitialized value in concatenation (.) or string at ./eventlog
> line 75.
> Use of uninitialized value in concatenation (.) or string at ./eventlog line 75.
> print() on unopened filehandle start_table at ./eventlog line 103.
> print() on unopened filehandle end_table at ./eventlog line 109.
> 
> NOTAS:
> - Genera correctamente la pagina page.html, aunque sin la nueva l�nea.
> - En la lin. 109 y 103 se queja de un print on unopened file y de un
> 'possible typo', en estas l�nieas hay respectivamente un 
> 
> print start_table();
> print end_table();
> 
> Que no generan el <table> ni el </table> a�n habiendo puesto el "use CGI
> qw(:standard);

�Puede ser por �sto?:
----
With a few exceptions (described below), start_*tag_name* and
end_*tag_name* functions are not generated automatically when you *use
CGI*. However, you can specify the tags you want to generate *start/end*
functions for by putting an asterisk in front of their name, or,
alternatively, requesting either "start_*tag_name*" or "end_*tag_name*"
in the import list.

Example:

  use CGI qw/:standard *table start_ul/;
----

Yo dir�a que s� porque ese: 
Name "main::end_table" used only once: possible typo 
	at ./eventlog line 109.
indica que no es capaz de encontrar la funci�n end_table()(de hecho lo
tiene en la tabla de s�mbolos de main::). Probablemente ni siquiera
existen esas funciones como tal sino que son generadas din�micamente
(puede que no, simplemente estoy adivinando). 

Pu�s eso, viene en el "fine" manual ;-)

Un saludo

Samuel

-- 
Samuel Mo�ux Salvador
PGP Key pgp.rediris.es    -----         KeyID 0x822583C2