merlin — Wed, 21 Jun 2000 07:22:00 +0000

well, thank you robp.
orpheus: i know, i know, my problems are all soluble with reading books. and i do read books (programming perl, o'reilly/perl cookbook, o'reilly), but sometimes i'm just too impatient to read me through the book to solve those little problem, when i know you outthere know the solution. ok, too impatient with myself too...
so i ask you to be my teachers and help me. at this place, i'd like to thank you all for helping me and my impatience...

Rob Pengelly — Fri, 16 Jun 2000 23:14:00 +0000

The problem is with

code:

if ($user eq @users) {
if ($pw eq @passwords) {
print "login ok";
} else {
print "login incorrect";
}
} else {
print "no username";
}
[/code]
You are trying to compare the inputted variables to the @arrays containing the different usernames/passwords.  This cannot be done. You would need a foreach(@users) statement to do this.
code:foreach(@users)
{
   if($user eq $_) {.....}
}
[/code]

But, after this, you are seeing if the inputted password is equal to any other passwords in the array.  This could create some problems, because it is not necesarily $user's password.

Here is what I would do.
code:#The file has been opened, and @info contains:
@info=("rob,password","jon,password2"); 

print "Enter Username:";
chomp ($user = <STDIN> );
print "Enter Password:";
chomp ($pw = <STDIN> );

if($user && $pw)
{
	foreach(@info)
	{
		if(lc($_) eq lc($user).",".lc($pw))
		{
			print "\nSuccess\n";
			exit;
		}
	}
}
else
{
	print "\nYou did not enter all the information required\n";
}
[/code]

Hope that helps.


------------------
click here to help save lives
http://www.wiredstart.com  : The Technology Start Page

Orpheus — Fri, 16 Jun 2000 17:04:00 +0000

Complicated problems suck. Little problems are awesome. I'd just like to mention a book, Learning Perl volume 2.

If you don't already have it I suggest you buy it. That will teach you everything there is to know about Perl.