Lectura de fichero

[Alextroy]

Hola, he modificado el script que pusiste para adecuarlo a lo que necesito, aunque no estoy muy seguro de haberlo hecho bien... en cualquier caso te lo comento a ver que te parece ¿ok?

Los datos del formulario los obtengo mediante el $input_data famoso.


my $usuario=$input_data{'usuario'};
my $password=$input_data{'password'};
my $usuario_reg;
my $password_reg;

open (FICHERO,"Login.txt");
my @lineas=<FICHERO>;
foreach my $linea (@lineas)
{
my ($usuario_reg,$password_reg) = split(/\|/,$linea);
chop($password_reg);
#YA TENEMOS LOQ UE NECESITAS, AHORA A VALIDAR LA INFO
if ($usuario eq $usuario_reg){
if ($password eq $password_reg){
print "Se logea correctamente !!!!";
}
}
}
print $usuario;
print $password;
print $usuario_reg;
print $password_reg;

Suponiendo que esto funcionase, independientemente de que el nombre de usuario y la contraseña sean correctos, deberia imprimir tanto los datos que yo puse en el formulario como los que hay en el fichero ¿no es asi?. El problema es que solo me imprime los dos primeros, por lo que la lectura del fichero debe ser erronea...

Hay una linea en el script que no entiendo del todo :my @lineas=<FICHERO>;. Se supone que esto introduce en un array los dastos del fichero, pero los datos de este tienen la estructura:
usuario1|contraseña1
usuario2|contraseña2
usuario3|contraseña3
Mi duda es que no se como quedan almacenados estos datos dentro del array, es decir, ¿quedarian de la siguiente forma?
usuario1|contraseña1usuario2|contraseña2usuario3|c ontraseña3
Ademas, yo entiendo qur de esta forma todos los datos se guardaran en el primer hueco del array ¿no? con lo que luego ¿como se sabe cuando tiene que saltar de linea?
Podrias aclararme esto???