Hola,
Pues porque no utilizas una pequeña BD... de MySql podría ser....
o bueno más fácil, con archivod de texto.
así:
recibes tus datos del formulario en el script de perl, y luego los guardas en una archivo de texto:
(yo tengo una rutina que me parsea el query string y me deja todo en %FORM, si quieres te la paso)
bueno recibes los datos:
$nombre = $FORM{"nombre"};
$direccion = $FORM{"direccion"};
$telefono = $FORM{"telefono"};
$email = $FORM{"email"};
$boletos = $FORM{"boletos"};
los guardamos en el archivo:
primero obtenemos el utimo consecutivo:
(esta no es la mejor forma, lo hize ahorita rapido)
open(BD,"./BaseDeDatos.txt");
while(<BD>){
push(@records,$_);
}
close(BD);
obtienes el utlimo record:
$ultimo = pop(@records);
los espliteas para sacar los campos:(suponiendo que los separas con pipe |)
@fields = split(/\|/,$ultimo);
y en el primer campo seguramente tendrias el consecutivo (o campo llave)
$ultimoconsecutivo = shift(@fields);
$nuevoconsecutivo = $ultimoconsecutivo + 1;
ahora si guardas el nuevo:
open(BD,">>./BaseDeDatos.txt");
print BD"$nuevoconsecutovpo|$nombre|$direccion|$tel efono|$email|$boletos\n";
close(BD);
y luego ya de manera similar leyendo el archivo registro por registro los imprimes en un html cuando queiras...
espero que te sirva, lo hize ahorita al vapor, para que mas o menos te des una idea...
saludos!....
--
Oscar Américo Sosa de la Cerda
[email protected]
<a href="http://www.sysmakers.com" target="_blank">Sys Makers Dot Com</a>
Develop it!