Is Perl Logical?

The general form of an if-then-else construct is shown here, with the actual syntax shown in boldface and the parts you must supply in normal type:

if ( condition is true) {
execute these commands
}
else {
execute those commands
}

The else clause is optional, but you can also have nested if clauses by using the elsif construct like this:

if ( condition is true) { execute these commands}
elsif { execute those commands}
elsif { execute those commands}
else { execute those commands}

So what kind of conditions can we test for? For number and string comparisons, here are the conditional expressions you can use. In other words, any of these expressions can go inside the parentheses of the if or elsifstatement:

Numbers Strings Result

$a == $b $a eq $b True if $a is equal to $b.

$a != $b $a ne $b True if $a is not equal to $b.

$a > $b $a gt $b True if $a is greater than $b.

$a < $b $a lt $b True if $a is less than $b.

$a >= $b $a ge $b True if $a is greater than or equal to $b.

$a <= $b $a le $b True if $a is less than or equal to $b.

Using the wrong comparison operator is a common Perl coding error, and is frustrating to debug. For example, if you use the == operator to compare two strings, you will not get the expected result.

You can also test certain fileconditions, such as whether or not files exist, the type of file, and so on. Here are the conditional expressions for files:

Conditional Expression Result

-e $somefile True if somefile exists.

-f $somefile True if somefile exists and is a plain file.

-d $somefile True if somefile exists and is a directory.

-s $somefile True if somefile contains data (the size is not zero).

-r $somefile True if somefile is readable.

-w $somefile True if somefile is writable.

-x $somefile True if somefile is executable.

And finally, here are the logical operators, for performing tests that involve and, or, and not conditions:

Operator Result

$a && $bTrue if both $a< EM> and$bare true.

$a and $bSame as above.< /P>

$a || $bTrue if either $a or $bi s true.

$a or $bSame as above.< /P>

! $aTrue if $a is false.

not $aSame as above.

Some if/then/else Examples

Here are some examples using the conditional expressions just listed. Note that the spaces on either side of the parentheses and braces are optional, and the placement of them is largely a matter of style.

if ( $carprice > 20000 )
{ print 'Too rich for my blood.'; }
else
{ print 'Can you get that model in blue?'; }

if ( $maker eq "Buick" )
{ print 'Have you driven a Ford lately?'; }

if ( -r $myfile && -s $myfile )
{
print "The $myfile file is readable and contains data."
}

The case Statement

Most languages provide a case or switch statement that lets you compare a string with several possible values and execute a block of code when a match is found. Perl does not, but it does provide a way to implement this procedure. Here's an example of the SWITCH construct, with the syntax shown in boldface and the parts you would supply in normal type:

SWITCH: {
if ( $A eq "ls" ) { system("ls"); last SWITCH };
if ( $A eq "pwd" ) { system("pwd"); last SWITCH };
if ( $A eq "date" ) { system("date"); last SWITCH };
print "None of the args were very interesting. \n";
}

In this example, if the value of $A was ls, the first block of commands would execute. If the value of $A was pwd, the second block of commands would execute. Otherwise, the rest of the commands in the SWITCH clause would execute. The last SWITCH command tells Perl to short-circuit the rest of the stuff in the SWITCH clause, so as soon as one of the conditions is satisfied, the others are ignored.

Previous Lesson: Perl Arguments
Next Lesson: Perl Looping