🚀 go-pugleaf

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.

El algorismo b�sico �s :

Si hay parametros del FORM (leidos mediante CGI:param) entonces
	A�adir nueva linea al fichero
fi-si
Devolver HTML
	Cabecera
	contenido del fichero
	formulario
fin-HTML

Dado que supongo que se debe tratar de un error t�pico de los nuevos
'padauan', no postear� (a no ser que me lo pidais) el script entero. Debo
decir que no lo he probado en ning�n servidor web a�n. Lo ejecuto en l�nea
de comandos pasandole los campos mediante un
	 cat fichero | script-cgi
Habiendo dentro del fichero la cadena:
	date=2003-08-10&event=prueba

Por cierto: �Alguna forma de provar los scripts sin tener que usar el
servidor web ? En uno de los tutoriales que sigo, dice que perl pide los
parametros por consola al detectar CGI.pm (offline-mode), pero a mi no me
pasa.

B�sicamente:

#!/usr/bin/perl -Tw
use strict;
use CGI qw(:standard);

# 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);

- Los 'use of uninitialized value' hacen referencia a $date y $event que
en la linea anterior a esa hago:

$date=param('date');
$event=param('event');

No se me ocurre donde puede haber el problema, qualquier sugerencia,
cr�tica o refer�ncia a algun buen documento sera agradecida. Si deseais
ver el script entero pedid-lo y lo postear�.

Muchas gracias.

Salut
Count