Table 4-3 lists all the Perl operators from highest to lowest precedence and indicates their associativity.
Associativity | Operators |
---|---|
Left | Terms and list operators (leftward) |
Left |
->
(method call, dereference) |
Nonassociative |
++ --
(autoincrement, autodecrement) |
Right |
**
(exponentiation) |
Right |
|
Left |
|
Left |
|
Left |
|
Left |
|
Nonassociative |
Named unary operators and file-test operators |
Nonassociative |
|
Nonassociative |
|
Left |
&
(bit-and) |
Left |
| ^
(bit-or, bit-xor) |
Left |
&&
(logical AND) |
Left |
||
(logical OR) |
Nonassociative |
.. ...
(range) |
Right |
?:
(ternary conditional) |
Right |
|
Left |
, =>
(comma, arrow comma) |
Nonassociative | List operators (rightward) |
Right |
not
(logical not) |
Left |
and
(logical and) |
Left |
or xor
(logical or, xor) |
You can make your expressions clear by using parentheses to group any part of an expression. Anything in parentheses will be evaluated as a single unit within a larger expression.
With very few exceptions, Perl operators act upon scalar values only, not upon list values.
Terms that take highest precedence in Perl include variables, quote and quotelike operators, any expression in parentheses, and any function whose arguments are in parentheses.
A list operator is a function that can take a list of values as its argument. List operators take highest precedence when considering what's to the left of them. They have considerably lower precedence when looking at their right side, which is the expected result.
Also parsed as high-precedence terms are the
do{}
and
eval{}
constructs, as well as subroutine and method calls, the anonymous array and hash composers (
[]
and
{}
), and the anonymous subroutine composer
sub{}
.
A unary operator is a function that takes a single scalar value as its argument. Unary operators have a lower precedence than list operators because they only expect and take one value.
The arrow operator is a dereference operator. It can be used for references to arrays, hashes, code references, or for calling methods on objects. See the discussion of references in Chapter 7, Packages, Modules, and Objects .
Unary
!
performs logical negation, that is, "not." The
not
operator is a lower-precedence version of
!
.
Unary
-
performs arithmetic negation if the operand is numeric. If the operand is an identifier, then a string consisting of a minus sign concatenated with the identifier is returned. Otherwise, if the string starts with a plus or minus, a string starting with the opposite sign is returned.
Unary
~
performs bitwise negation, that is, one's complement. For example, on a 32-bit machine,
~0xFF
is
0xFFFFFF00
. If the argument to
~
is a string instead of a number, a string of identical length is returned, but with all the bits of the string complemented.
Unary
+
has no semantic effect whatsoever, even on strings. It is syntactically useful for separating a function name from a parenthesized expression that would otherwise be interpreted as the complete list of function arguments.
Unary
\
creates a reference to whatever follows it (see "References and Complex Data Structures" later in this chapter). Do not confuse this behavior with the behavior of backslash within a string. The
\
operator may also be used on a parenthesized list value in a list context, in which case it returns references to each element of the list.
Binary
**
is the exponentiation operator. Note that it binds even more tightly than unary minus, so
-2**4
is
-(2**4)
, not
(-2)**4
. Note also that
**
has right associativity, so:
evaluates to 2 to the 81st power, not 8 to the 4th power.$e = 2 ** 3 ** 4;
The
*
(multiply) and
/
(divide) operators work exactly as you might expect, multiplying or dividing their two operands. Division is done in floating-point mode, unless integer mode in enabled (via
use integer
).
The
%
(modulus) operator converts its operands to integers before finding the remainder according to integer division. For the same operation in floating-point mode, you may prefer to use the
fmod()
function from the POSIX module (see
Chapter 8
).
Perl has two classes of relational operators. One class operates on numeric values, and the other operates on string values.
String comparisons are based on the ASCII collating sequence. Relational operators are nonassociative, so
$a < $b < $c
is a syntax error.
Numeric | String | Meaning |
---|---|---|
>
|
gt
|
Greater than |
>=
|
ge
|
Greater than or equal to |
<
|
lt
|
Less than |
<=
|
le
|
Less than or equal to |
The equal and not-equal operators return 1 for true, and
""
for false (just as the relational operators do). The
<=>
and
cmp
operators return -1 if the left operand is less than the right operand, 0 if they are equal, and +1 if the left operand is greater than the right.
Numeric | String | Meaning |
---|---|---|
==
|
eq
|
Equal to |
!=
|
ne
|
Not equal to |
<=>
|
cmp
|
Comparison, with signed result |
If placed before a variable, the
++
and
--
operators increment or decrement the variable before returning the value, and if placed after, they increment or decrement the variable after returning the value.
Perl recognizes the following operators for assigning a value to a variable:
Each operator requires a variable on the left side and some expression on the right side. For the simple assignment operator,= **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x=
=
, the value of the expression is stored into the designated variable. For the other operators, Perl evaluates the expression: as if it were written:$var OP = $value
except that$var = $var OP $value
$var
is evaluated only once. For example: $a += 2; # same as $a = $a + 2
Binary
=~
binds a scalar expression to a pattern match, substitution, or translation. These operations search or modify the string
$_
by default.
Binary
!~
is just like
=~
except the return value is negated in the logical sense. The following expressions are functionally equivalent:
See Section 4.6 " later in this chapter.$string !~ / pattern / not $string =~ / pattern /
A file test operator is a unary operator that tests a filename or a filehandle.
Operator | Meaning |
---|---|
-r
|
File is readable by effective uid/gid. |
-w
|
File is writable by effective uid/gid. |
-x
|
File is executable by effective uid/gid. |
-o
|
File is owned by effective uid. |
-R
|
File is readable by real uid/gid. |
-W
|
File is writable by real uid/gid. |
-X
|
File is executable by real uid/gid. |
-O
|
File is owned by real uid. |
-e
|
File exists. |
-z
|
File has zero size. |
-s
|
File has non-zero size (returns size). |
-f
|
File is a plain file. |
-d
|
File is a directory. |
-l
|
File is a symbolic link. |
-p
|
File is a named pipe (FIFO). |
-S
|
File is a socket. |
-b
|
File is a block special file. |
-c
|
File is a character special file. |
-t
|
Filehandle is opened to a tty. |
-u
|
File has setuid bit set. |
-g
|
File has setgid bit set. |
-k
|
File has sticky bit set. |
-T
|
File is a text file. |
-B
|
File is a binary file (opposite of
-T
). |
-M
|
Age of file (at startup) in days since modification. |
-A
|
Age of file (at startup) in days since last access. |
-C
|
Age of file (at startup) in days since inode change. |
Perl provides the
&&
(logical AND) and
||
(logical OR) operators. They evaluate from left to right testing the truth of the statement.
Example | Name | Result |
---|---|---|
$a && $b
|
And |
|
$a || $b
|
Or |
|
For example, an oft-appearing idiom in Perl programs is:
In this case, Perl first evaluates theopen(FILE, "somefile") || die "Cannot open somefile: $!\n";
open
function. If the value is true (because
somefile
was successfully opened), the execution of the
die
function is unnecessary and is skipped.
Perl also provides lower-precedence
and
and
or
operators that are more readable.
Perl has bitwise AND, OR, and XOR (exclusive OR) operators:
&
,
|
, and
^
. These operators work differently on numeric values than they do on strings. If either operand is a number, then both operands are converted to integers, and the bitwise operation is performed between the two integers. If both operands are strings, these operators do bitwise operations between corresponding bits from the two strings.
The
..
range operator is really two different operators depending on the context. In a list context, it returns a list of values counting (by ones) from the left value to the right value.
In a scalar context,
..
returns a Boolean value. It is false as long as its left operand is false. Once the left operand is true, the range operator stays true until the right operand is true, after which the range operator becomes false again. The right operand is not evaluated while the operator is in the false state, and the left operand is not evaluated while the operator is in the true state.
The alternate version of this operator,
...
, does not test the right operand immediately when the operator becomes true; it waits until the next evaluation.
Ternary
?:
is the conditional operator. It works much like an if-then-else statement, but it can safely be embedded within other operations and functions.
If thetest_expr ? if_true_expr : if_false_expr
test_expr
is true, only the
if_true_expr
is evaluated. Otherwise, only the
if_false_expr
is evaluated. Either way, the value of the evaluated expression becomes the value of the entire expression.
In a list context, "
,
" is the list argument separator and inserts both its arguments into the list. In scalar context, "
,
" evaluates its left argument, throws that value away, then evaluates its right argument and returns that value.
The
=>
operator is mostly just a synonym for the comma operator. It's useful for documenting arguments that come in pairs. It also forces any identifier to the left of it to be interpreted as a string.
The concatenation operator "." is used to add strings together:
Binaryprint 'abc' . 'def'; # prints abcdef print $a . $b; # concatenates the string values of $a and $b
x
is the string repetition operator. In scalar context, it returns a concatenated string consisting of the left operand repeated the number of times specified by the right operand. In list context, if the left operand is a list in parentheses, theprint '-' x 80; # prints row of dashes print "\t" x ($tab/8), ' ' x ($tab%8); # tabs over
x
works as a list replicator rather than a string replicator. This is useful for initializing all the elements of an array of indeterminate length to the same value: @ones = (1) x 80; # a list of 80 1s @ones = (5) x @ones; # set all elements to 5