Wenas de nuevo, pues me temo que por más que le doy vueltas a este otro script, no consigo q me funcione, seguro que es una tontería como la de antes, pero se me pasa por alto.
Código:
foreach $trozo(split /&/, $ENV{QUERY_STRING})
{
($c,$v)=split /=/, $trozo;
$p{$c}=$v;
}
if(-e "usuarios.txt")
{
open FILE1, ">>usuarios.txt";
open FILE2, ">temp.txt";
while(<FILE1>)
{
chop;
@user=split /:/;
if($user[4] ne $p{id})
{
print FILE2 $linea;
}
}
}
close(F1);
close(F2);
rename "temp.txt","usuarios.txt";
#Luego muestra el resultado del usuario eliminado en una pagina web
Lo que intento hacer es eliminar a un usuario del fichero usuarios.txt, para ello recorro el fichero y si veo que el user[4] es distinto al parametro del id (el usuario a eliminar), que lo guarde en el fichero temporal, una vez terminado de recorrer el fichero, renombro el fichero temporal a usuarios.
No sé si eso estara bien así, pero no se me ocurre otro método.
Un saludo