Need help with perl loop!

morbid_ru · 02-24-2004, 01:01 PM

Hello.

I have name/pass .txt file like this:

name1|ftftft
name2|sesese

I would like this file to be compared to the $FORM{'name'} and $FORM{'password'} values and upon the match, deciee what to do. However things are not working.
Here is my code:

####
sub pass {
$cryptpass = crypt($FORM{'password'}, "ts");
open(FILE,"$pass_file");
@lines = <FILE>;
close(FILE);
for ($lines_no = 0; $lines_no <= $#lines; $lines_no++) {
chomp($lines[$lines_no]);
($name, $password) = split(/\|/, $lines[$lines_no]);
if ($FORM{'name'} =~ $name) || (crypt($FORM{'password'}, "ts") =~ $password)
{
&intro;
}
else {
&badlogin;
}
}
exit;
}
########

david_ross · 02-24-2004, 01:14 PM

You will probably be easier using foreach and chop:

Code:

sub pass {
 $cryptpass = crypt($FORM{'password'}, "ts");
 open(FILE,"$pass_file");
 @lines = <FILE>;
 close(FILE);
 foreach $line (@lines){
  chomp($line);
  ($name, $password) = split(/\|/, $line);
  if ($FORM{'name'} eq $name && $cryptpass eq $password){
   &intro;
  }
  else {
   &badlogin;
  }
 }
 exit;
}