'if' statement error 1

[varakal]

I am having a problem with the following code.

my $exists = 0;
my @exists = $dbh_src->FetchData();
chomp($exists[0]);
print "Before if stmt: Fetched: $exists[0], userid = $user_id, flag = $exists\n";
$exists = 1 if ('$exists[0]' == '$user_id');
print "After if stmt: Fetched: $exists[0], userid = $user_id, flag = $exists\n";

The result is:

Before if stmt: Fetched: , userid = EC0010, flag = 0
After if stmt: Fetched: , userid = EC0010, flag = 1

Why would $exists change from '0' to '1' if $exists[0] and $user_id are not matched?
Thanks in advance.

 

[Rieekan]

The problem that I can see from your code is that you're trying to match two literal strings against each other as numbers. Change this line:

$exists = 1 if ('$exists[0]' == '$user_id');

to:

$exists = 1 if ("$exists[0]" eq "$user_id");

- Rieekan

 

[varakal]

Thanks Reeikan for your answer. It worked. I tried 'eq' before, but I had single quotes instead of double quotes in the 'if' statement, and with single quotes, it didn't work.

 

[Rieekan]

Yeah, Perl doesn't evaluate variables within single quotes, so your if statement was checking to see if the literal string $exists[0] equals the literal sting $user_id.

- Rieekan