Presentome
Francisco (Paquito) Carmona
fcarmona@cfe.gob.mx
Tue, 17 Jun 1997 16:20:55 -0600
>A mi s=ED me ayuda, muchas gracias.=20
>=BFY su usas METHOD=3DPOST?
#!/usr/bin/perl -w
print 'Content-type: text/html',"\n\n",
"<<head><<title>Prueba de captura<</title><<html><<body>";
if($ENV{REQUEST_METHOD} eq 'POST') { # Pinta oficio
read(STDIN,$buffer,$ENV{CONTENT_LENGTH});
@pares =3D split(/&/, $buffer);
foreach (@pares) {
($nombre, $valor) =3D split(/=3D/);
$valor =3D~ tr/+/ /;
$valor =3D~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$nombre} =3D $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 METHOD=3DPOST>
Campo 1<<INPUT TYPE=3DTEXT NAME=3Dcampo1><<BR>
Campo 2<<INPUT TYPE=3DTEXT NAME=3Dcampo2><<BR>
<<INPUT TYPE=3DSUBMIT VALUE=3D"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"
-----------------------------------------