Simple comparison question 2

[Extension]

Super easy question for you guys.

I'm looking for a 'one-liner' that will achieve the following:
- Check if param{'name'} equals "bozo" only is param{'name'} is not null (is defined).

if ($param{'name'} ne '' && $param{'name'} eq 'bozo') {
	print "foo";
}

 

[travs69]

Looks good to me.
You can probably change
$param{'name'} ne ''
to just
if ($param{'name'} && $param{'name'} eq 'bozo')

as I dont' think it gets defined unless it's got data passed to it.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Extension]

After reading my question, I realized my question wasn't clear.
What I want is:

If param{'name'} is not NULL, check if equals to "bozo"; then print "foo". If value is NULL, print "foo"

I want to basically avoid doing this:

if ($param{'name'} && $param{'name'} eq 'bozo') {
# Filter; push records with name = 'bozo'
push (@Found, $Record);

}
else {
# No Filter; push all records
push (@Found, $Record);
}

 

[travs69]

if (($param{'name'} && $param{'name'} eq 'bozo') || ! $param{'name'}){
	print "foo\n";
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[PaulTEG]

if (param{'name'} eq 'bozo') would only be true if the param exists, and is equal to 'bozo'

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[travs69]

duh

if ($param{'name'} eq 'bozo' || ! $param{'name'}){
	print "foo\n";
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Extension]

Thanks guys. Really appreciated.