What is an Operator?
Simple answer can be given using the expression 4 + 5 is equal to 9. Here 4 and 5 are called operands and + is called operator. Perl language supports many operator types, but following is a list of important and most frequently used operators −
- Arithmetic Operators
- Equality Operators
- Logical Operators
- Assignment Operators
- Bitwise Operators
- Logical Operators
- Quote-like Operators
- Miscellaneous Operators
Lets have a look at all the operators one by one.
Perl Arithmetic Operators
Assume variable $a holds 10 and variable $b holds 20, then following are the Perl arithmatic operators −
| Sr.No. | Operator & Description |
|---|---|
| 1 | + ( Addition )Adds values on either side of the operatorExample − $a + $b will give 30 |
| 2 | – (Subtraction)Subtracts right hand operand from left hand operandExample − $a – $b will give -10 |
| 3 | * (Multiplication)Multiplies values on either side of the operatorExample − $a * $b will give 200 |
| 4 | / (Division)Divides left hand operand by right hand operandExample − $b / $a will give 2 |
| 5 | % (Modulus)Divides left hand operand by right hand operand and returns remainderExample − $b % $a will give 0 |
| 6 | ** (Exponent)Performs exponential (power) calculation on operatorsExample − $a**$b will give 10 to the power 20 |
Perl Equality Operators
These are also called relational operators. Assume variable $a holds 10 and variable $b holds 20 then, lets check the following numeric equality operators −
| Sr.No. | Operator & Description |
|---|---|
| 1 | == (equal to)Checks if the value of two operands are equal or not, if yes then condition becomes true.Example − ($a == $b) is not true. |
| 2 | != (not equal to)Checks if the value of two operands are equal or not, if values are not equal then condition becomes true.Example − ($a != $b) is true. |
| 3 | <=>Checks if the value of two operands are equal or not, and returns -1, 0, or 1 depending on whether the left argument is numerically less than, equal to, or greater than the right argument.Example − ($a <=> $b) returns -1. |
| 4 | > (greater than)Checks if the value of left operand is greater than the value of right operand, if yes then condition becomes true.Example − ($a > $b) is not true. |
| 5 | < (less than)Checks if the value of left operand is less than the value of right operand, if yes then condition becomes true.Example − ($a < $b) is true. |
| 6 | >= (greater than or equal to)Checks if the value of left operand is greater than or equal to the value of right operand, if yes then condition becomes true.Example − ($a >= $b) is not true. |
| 7 | <= (less than or equal to)Checks if the value of left operand is less than or equal to the value of right operand, if yes then condition becomes true.Example − ($a <= $b) is true. |
Below is a list of equity operators. Assume variable $a holds “abc” and variable $b holds “xyz” then, lets check the following string equality operators −
| Sr.No. | Operator & Description |
|---|---|
| 1 | ltReturns true if the left argument is stringwise less than the right argument.Example − ($a lt $b) is true. |
| 2 | gtReturns true if the left argument is stringwise greater than the right argument.Example − ($a gt $b) is false. |
| 3 | leReturns true if the left argument is stringwise less than or equal to the right argument.Example − ($a le $b) is true. |
| 4 | geReturns true if the left argument is stringwise greater than or equal to the right argument.Example − ($a ge $b) is false. |
| 5 | eqReturns true if the left argument is stringwise equal to the right argument.Example − ($a eq $b) is false. |
| 6 | neReturns true if the left argument is stringwise not equal to the right argument.Example − ($a ne $b) is true. |
| 7 | cmpReturns -1, 0, or 1 depending on whether the left argument is stringwise less than, equal to, or greater than the right argument.Example − ($a cmp $b) is -1. |
Perl Assignment Operators
Assume variable $a holds 10 and variable $b holds 20, then below are the assignment operators available in Perl and their usage −
| Sr.No. | Operator & Description |
|---|---|
| 1 | =Simple assignment operator, Assigns values from right side operands to left side operandExample − $c = $a + $b will assigned value of $a + $b into $c |
| 2 | +=Add AND assignment operator, It adds right operand to the left operand and assign the result to left operandExample − $c += $a is equivalent to $c = $c + $a |
| 3 | -=Subtract AND assignment operator, It subtracts right operand from the left operand and assign the result to left operandExample − $c -= $a is equivalent to $c = $c – $a |
| 4 | *=Multiply AND assignment operator, It multiplies right operand with the left operand and assign the result to left operandExample − $c *= $a is equivalent to $c = $c * $a |
| 5 | /=Divide AND assignment operator, It divides left operand with the right operand and assign the result to left operandExample − $c /= $a is equivalent to $c = $c / $a |
| 6 | %=Modulus AND assignment operator, It takes modulus using two operands and assign the result to left operandExample − $c %= $a is equivalent to $c = $c % a |
| 7 | **=Exponent AND assignment operator, Performs exponential (power) calculation on operators and assign value to the left operandExample − $c **= $a is equivalent to $c = $c ** $a |
Perl Bitwise Operators
Bitwise operator works on bits and perform bit by bit operation. Assume if $a = 60; and $b = 13; Now in binary format they will be as follows −
$a = 0011 1100
$b = 0000 1101
—————–
$a&$b = 0000 1100
$a|$b = 0011 1101
$a^$b = 0011 0001
~$a = 1100 0011
There are following Bitwise operators supported by Perl language, assume if $a = 60; and $b = 13
| Sr.No. | Operator & Description |
|---|---|
| 1 | &Binary AND Operator copies a bit to the result if it exists in both operands.Example − ($a & $b) will give 12 which is 0000 1100 |
| 2 | |Binary OR Operator copies a bit if it exists in eather operand.Example − ($a | $b) will give 61 which is 0011 1101 |
| 3 | ^Binary XOR Operator copies the bit if it is set in one operand but not both.Example − ($a ^ $b) will give 49 which is 0011 0001 |
| 4 | ~Binary Ones Complement Operator is unary and has the efect of ‘flipping’ bits.Example − (~$a ) will give -61 which is 1100 0011 in 2’s complement form due to a signed binary number. |
| 5 | <<Binary Left Shift Operator. The left operands value is moved left by the number of bits specified by the right operand.Example − $a << 2 will give 240 which is 1111 0000 |
| 6 | >>Binary Right Shift Operator. The left operands value is moved right by the number of bits specified by the right operand.Example − $a >> 2 will give 15 which is 0000 1111 |
Perl Logical Operators
There are following logical operators supported by Perl language. Assume variable $a holds true and variable $b holds false then −
| Sr.No. | Operator & Description |
|---|---|
| 1 | andCalled Logical AND operator. If both the operands are true then then condition becomes true.Example − ($a and $b) is false. |
| 2 | &&C-style Logical AND operator copies a bit to the result if it exists in both operands.Example − ($a && $b) is false. |
| 3 | orCalled Logical OR Operator. If any of the two operands are non zero then then condition becomes true.Example − ($a or $b) is true. |
| 4 | ||C-style Logical OR operator copies a bit if it exists in eather operand.Example − ($a || $b) is true. |
| 5 | notCalled Logical NOT Operator. Use to reverses the logical state of its operand. If a condition is true then Logical NOT operator will make false.Example − not($a and $b) is true. |
Quote-like Operators
There are following Quote-like operators supported by Perl language. In the following table, a {} represents any pair of delimiters you choose.
| Sr.No. | Operator & Description |
|---|---|
| 1 | q{ }Encloses a string with-in single quotesExample − q{abcd} gives ‘abcd’ |
| 2 | qq{ }Encloses a string with-in double quotesExample − qq{abcd} gives “abcd” |
| 3 | qx{ }Encloses a string with-in invert quotesExample − qx{abcd} gives `abcd` |
Miscellaneous Operators
There are following miscellaneous operators supported by Perl language. Assume variable a holds 10 and variable b holds 20 then −
| Sr.No. | Operator & Description |
|---|---|
| 1 | .Binary operator dot (.) concatenates two strings.Example − If $a = “abc”, $b = “def” then $a.$b will give “abcdef” |
| 2 | xThe repetition operator x returns a string consisting of the left operand repeated the number of times specified by the right operand.Example − (‘-‘ x 3) will give —. |
| 3 | ..The range operator .. returns a list of values counting (up by ones) from the left value to the right valueExample − (2..5) will give (2, 3, 4, 5) |
| 4 | ++Auto Increment operator increases integer value by oneExample − $a++ will give 11 |
| 5 | —Auto Decrement operator decreases integer value by oneExample − $a– will give 9 |
| 6 | ->The arrow operator is mostly used in dereferencing a method or variable from an object or a class nameExample − $obj->$a is an example to access variable $a from object $obj. |
Perl Operators Precedence
The following table lists all operators from highest precedence to lowest.
left terms and list operators (leftward)
left ->
nonassoc ++ --
right **
right ! ~ \ and unary + and -
left =~ !~
left * / % x
left + - .
left << >>
nonassoc named unary operators
nonassoc < > <= >= lt gt le ge
nonassoc == != <=> eq ne cmp ~~
left &
left | ^
left &&
left || //
nonassoc .. ...
right ?:
right = += -= *= etc.
left , =>
nonassoc list operators (rightward)
right not
left and
left or xor
Leave a Reply