Operators

Introduction

Operators are the small symbols and keywords that let you combine, compare, and transform values. Perl has a particularly rich operator set, and understanding it well — especially the numeric-versus-string split — will save you from some of the most common beginner bugs in the language.

Arithmetic Operators

Perl supports the standard set of arithmetic operators you would expect from most programming languages, plus a couple of convenient shortcuts.

use strict;
use warnings;

my $a = 17;
my $b = 5;

print "Sum: ", $a + $b, "\n";
print "Difference: ", $a - $b, "\n";
print "Product: ", $a * $b, "\n";
print "Quotient: ", $a / $b, "\n";
print "Remainder: ", $a % $b, "\n";
print "Power: ", $a ** 2, "\n";

my $counter = 10;
$counter++;      # increment shorthand
$counter += 5;    # add-and-assign shorthand
print "Counter: $counter\n";

String Concatenation with .

To join two strings together explicitly, Perl uses the . (dot) operator. This is distinct from the + operator, which is reserved strictly for numeric addition — a deliberate design choice that avoids the ambiguity some other languages have with "+" meaning both addition and concatenation.

use strict;
use warnings;

my $first_name = "Ada";
my $last_name  = "Lovelace";

my $full_name = $first_name . " " . $last_name;
print "Full name: $full_name\n";

my $message = "Hello, " . $full_name . "!";
$message .= " Welcome to Perl.";   # append-and-assign shorthand
print "$message\n";

String Repetition with x

The x operator repeats a string a given number of times, which is a distinctly Perl-flavored convenience for building separators, padding, or simple ASCII formatting.

use strict;
use warnings;

my $separator = "-" x 20;
print "$separator\n";
print "Report Summary\n";
print "$separator\n";

my @repeated_list = ("ha") x 3;   # x also works on lists in list context
print "@repeated_list\n";

Numeric Comparison Operators

Numeric comparisons compare two values as numbers, converting strings to numbers if needed.

use strict;
use warnings;

my $x = 10;
my $y = "10.0";   # a string, but numerically equal to 10

if ($x == $y) {
    print "Numerically equal\n";
}

my @numbers = (40, 5, 100, 25);
my @sorted_numbers = sort { $a <=> $b } @numbers;
print "Sorted: @sorted_numbers\n";

String Comparison Operators

String comparisons compare two values as text, character by character, using alphabetical (lexicographic) ordering rather than numeric value.

use strict;
use warnings;

my $status1 = "active";
my $status2 = "Active";

if ($status1 eq $status2) {
    print "Statuses match exactly.\n";
} else {
    print "Statuses differ (case-sensitive comparison).\n";
}

my @names = ("Charlie", "alice", "Bob");
my @sorted_names = sort { $a cmp $b } @names;
print "Sorted names: @sorted_names\n";

The last example also demonstrates that cmp comparisons are case-sensitive by default, sorting uppercase letters before lowercase ones based on their underlying character codes.

Why Two Sets of Comparisons Exist

This is one of the single most important things to internalize as a Perl beginner: == and eq are not interchangeable, even though many other languages only offer one comparison operator that handles both. Using the wrong one produces subtle, hard-to-spot bugs.

use strict;
use warnings;

my $a = "10";
my $b = "9";

if ($a > $b) {
    print "Numerically, 10 is greater than 9\n";
}

if ($a gt $b) {
    print "Sorted as text, this branch runs instead\n";
} else {
    print "String-wise, \"10\" is NOT greater than \"9\", because '1' sorts before '9'\n";
}

Numerically, 10 is bigger than 9. But as text, "10" is compared character by character: the first character '1' comes before '9' alphabetically, so "10" is considered "less than" "9" in string comparison. This exact mismatch is one of the most common sources of real Perl bugs, especially when comparing user input or data read from files, which always starts out as text.

Common Mistakes

Best Practices

Frequently Asked Questions

Key Takeaways

Summary

You now have a solid grasp of Perl's arithmetic, string, and comparison operators, including the crucial numeric-versus-string distinction. In the final lesson of this batch, we will cover input and output in more depth: print versus say, reading from STDIN, and cleaning up input with chomp.