RE: Who debug me?

[Beau E. Cox]

Hi -
        Maybeeee...

if ($usr == $usr1) {print "$usr $pass $email\n";}

'==' is a NUMERIC compare, 'eq' is the corresponding alphanumeric compare.
So:

if ($usr eq $usr1) {print "$usr $pass $email\n";}

or (to ignore case):

if (lc $usr eq lc $usr1) {print "$usr $pass $email\n";}

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Francesco
Guglielmo
Sent: Friday, May 17, 2002 6:17 AM
To: [EMAIL PROTECTED]
Subject: Who debug me?


That's the problem:

#!/usr/bin/perl

my $file = '/home/users/francesco/LISTAORDINATA.txt';
my $outfile = '/home/users/francesco/Perl/file/usrpasswdemail.txt';
my $file2 = '/home/users/francesco/Perl/file/peralberto.txt';

open (OUT, ">$outfile");
open (INPUTEMAIL, "$file2");
#       open (INPUTPASS, "$file");

while (<INPUTEMAIL>) {
chomp;

($usr1,$email) = split (/\s/);


        open (INPUTPASS, "$file");
while (<INPUTPASS>) {
chomp;

($usr,$pass) = split (/\s/);

if ($usr == $usr1) {print "$usr $pass $email\n";}
}
}

Where is my error?
I suppose in the "if".....
I want to print $usr $pass $email


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]