in reply to Re: prob w/ gatekeeper subroutine
in thread prob w/ gatekeeper subroutine
Thanks for the response. I will post the hash and the main part of the code that calls the subroutine. Sorry, should have done this in the first place.
$x = (); %userpass = ('john','ball','tim','super','matt','password','dan','nad3 +2'); &entersys; if($x == "pass") { print("Welcome to the system!\n"); } else { print("That user/password is incorrect\n"); }
I use them as global variables and a global hash so that the subroutines permanently change them.
In Section
Seekers of Perl Wisdom