[perl] (no subject)

Mon, 13 Mar 2000 09:32:03 -0300

This is a multi-part message in MIME format.
--------------C4060E44B0F958167F43EEDD
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Aca les muestro el  ejemplo  la primera vez lo hace pero despues no ,
seguro que debe haber algo que no estoy haciendo ... pero de a poco voy
a aprender hace  una semana mas o menos que empece con esto de perl ..
El arch del que lee tiene esta forma   juan:0

pedro:1

ana:0 ... etc
desde ya muchisimas gracias .
                                majose

--------------C4060E44B0F958167F43EEDD
Content-Type: application/x-perl;
 name="respuesta.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="respuesta.pl"

#!/usr/bin/perl

use CGI::Request;

print <<EOF;
Content-type: text/html\n\n
<HTML><HEAD><TITLE></TITLE></HEAD>
<BODY>
<form action="/cgi-bin/internet/listado.pl" method="post">
EOF
;

#para extraer las variables

$req = new CGI::Request;

$nombre = $req->param('nombre');
$accion= $req->param ('accion');

$otro="aux";
$arch="autorizados";

open (IO,">$otro")  or die "No encontre arch\n";;
open (AR,"$arch") or die "No encontre arch\n";
while(<AR>){
  @tmp=split'\:';
  $nom=@tmp[0];
  $pue=@tmp[1];
  if ($nom eq $nombre) {
    $pue=$accion;     
  }
 print (IO "$nom $pue"); 
 print (AR "$nom $pue"); 
}
close(AR);
close(IO);

system ("mv $otro $arch");
##system ("rm $otro");

print <<EOF
<center>
<h2>ACTUALIZANDO LISTADO</h2>
</CENTER> 
<center>
<input type="submit" value="continuar">
</center>
</form>
</BODY></HTML>
EOF
;

--------------C4060E44B0F958167F43EEDD--

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl