(jeffa) 3Re: Simple for some.

Sounds like you need a better data structure, like a hash of hashes (HoH). Also, i would store the two form variables as seperate values - $user and $pass, but i will keep that part of your requirements intact:

use strict;

my %passwd;
while (<DATA>) {
   my ($id,$email,$user,$passwd) = split;
   $passwd{$user} = {
      id     => $id,
      email  => $email,
      passwd => $passwd,
   };
}

my @other_array = @ARGV[0,1];

my $user = $passwd{$other_array[0]} || die "bad user";
die "bad password" unless $other_array[1] eq $user->{passwd};

__DATA__
1028804576 nasa@dodo.com.au name password
1028804590 nasa@dodo.com.au name2 pass2
1028804598 who@where.com again anouther
[download]

But, i would use a relational database to handle this sort of problem - at least consider using DBD::CSV. This example assumes the data file is named users.csv:

use strict;
use DBI;

my $dbh = DBI->connect(
   "DBI:CSV:f_dir=.;csv_eol=\n;csv_sep_char= ;",
   {RaiseError=>1},
);

$dbh->{csv_tables}->{'users'} = { 
   file      => 'users.csv',
   col_names => [qw(id email user passwd)],
};

my $user = shift;
my $pass = shift;

my $sth = $dbh->prepare("
   select id,email,user,passwd 
   from users
   where user = ?
   and passwd = ?
");
$sth->execute($user,$pass);

my $valid = $sth->fetchrow_hashref;
die "bad user/pass" unless $valid;

my $id    = $valid->{id};
my $email = $valid->{email};
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) 3Re: Simple for some. Select or Download Code