Re^2: prob w/ gatekeeper subroutine

Actually this is an assignment. Thanks for the responses. What is the difference between chop and chomp? I'm not exactly sure what you mean by hashing the passwords. Isn't that what I am doing here? I am putting the user name and password of each user inside the hash. And actually changing the operator to eq from == worked. The problem now is that my subroutine that adds a user and pass to the hash doesn't seem to be working. Here is the code:

sub adduser
{
    print("Please enter the admin password: ");
    $epass = <STDIN>;
    chop($epass);
    if($epass eq $adminpass)
    {
        print("Please enter the user you would like to add: ");
        $usertoadd = <STDIN>;
        print("Please enter the password for the user: ");
        $passtoadd = <STDIN>;
        $userpass{$usertoadd} = $passtoadd;
        print("That password has been added to the system\n");
    }
    else
    {
        print("Wrong admin password\n");
    }
}

 print("Would you like to: \n");
    print("1. Add new user\n");
    print("2. Change admin password\n");
    print("3. Enter the system\n");

    $select = <STDIN>;

    if($select == 1)
    {
        &adduser;
    }
[download]

Also the $adminpass is set to 'root'.

Comment on Re^2: prob w/ gatekeeper subroutine Download Code

Replies are listed 'Best First'.
Re^3: prob w/ gatekeeper subroutine by Anonymous Monk on Sep 29, 2010 at 17:21 UTC
What is the difference between chop and chomp? perldoc -f chop perldoc -f chomp	[reply]
Re^3: prob w/ gatekeeper subroutine by halfcountplus (Hermit) on Sep 30, 2010 at 01:11 UTC
By "hashing" MidLifeXis means crytopgree-phying your passwords using some algorithm. A similar conceptual-algorithmic method is used in what computer science calls "hash tables" via which perl implements the "hash" datatype in the underlying C code using arrays, since C does not have such a native datatype. But really this is a coincident of nomenclature, and if you have not been asked to do it, don't, it has nothing to do with perl hash syntax. Do: `use strict; use warnings;` [download]	[reply] [d/l]