Presentome
Francisco (Paquito) Carmona
fcarmona@cfe.gob.mx
Tue, 17 Jun 1997 15:14:47 -0600
At 01:49 PM 17/06/97 -0600, Israel Zenteno Martinez wrote:
>Que tal? Me llamo Israel Zenteno y soy un neofito mas del perl pero esoy
>muy interesado en crear un cgi para capturar informacion personal
>evidentemente por una pagina web, asi que si alguien sabe de como hacerlo
>(no como el pres... ) les agradeceria me echaran una mano y pues
>le felicito por esta nueva lista
> Saludos
>
> Israel Zenteno
>
>
Espero esto te ayude
#!/usr/bin/perl -w
print 'Content-type: text/html',"\n\n",
"<<head><<title>Prueba de captura<</title><<html><<body>";
if($ENV{QUERY_STRING}) {
@pares = split(/&/, $ENV{QUERY_STRING});
foreach (@pares) {
($nombre, $valor) = split(/=/);
$valor =~ tr/+/ /;
$valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$nombre} = $valor;
}
print 'Los datos capturados fueron:<<BR>',
"Campo 1: $FORM{'campo1'}<<BR>Campo 2: $FORM{'campo2'}<<BR>";
open (FILE,">>captura");
print FILE "$FORM{'campo1'}|$FORM{'campo2'}\n";
} else {
print q(<<CENTER>Captura de Datos<<FORM>
Campo 1<<INPUT TYPE=TEXT NAME=campo1><<BR>
Campo 2<<INPUT TYPE=TEXT NAME=campo2><<BR>
<<INPUT TYPE=SUBMIT VALUE="Envia Informacion">
<</FORM>);
}
print '<</body><</html>';
<bigger>------------------------------------------
.@@@@@.
_oo00O__(-O.O-)_____O00oo_______
/ ''''' |/0\| ````` /
/_____ ______ ______________ /
/_ __ \_ __ `/_ ___/_ __ \ /
/_ /_/ // /_/ / / /__ / /_/ / /
</bigger> /_ .___/ \__,_/ \___/ \____/ /
/ /_/ Francisco Carmona Leon /
/ Veracruz, Mexico /
/_______.ooOO________________________/
( ) \_ *)
\ ( ) OOoo.
\_) ( ( )
\ ) /
(_/
fcarmona@msg.com.mx
fcarmona@cfe.gob.mx
fcarmona@cyberspace.org
fcarmona@phish.nether.net
fcarmona@m-net.arbornet.org
Paquito.bbs@aug3.augsburg.edu
-----------------------------------------
Club de Internautas "Jarochos"
-----------------------------------------