In addition to the numerical operators Perl has two operators specially used for strings. One of them is . for concatenation, and the other is x (the lower-case X) for repetition.
use strict; use warnings; use 5.010; my $x = 'Hello'; my $y = 'World'; my $z = $x . ' ' . $y; say $z;
Running the above script will yield the following output:
It attached the string from the variables and the literal empty-space thing into one new string.
Actually in the above case we did not have to use the . concatenation to achieve this result. As Perl provides scalar variable interpolation in string, we could just write:
my $z = "$x $y";
and that would yield the same result.
When interpolation is not the answer
There are of course cases when the concatenation cannot be replaced by interpolation. Take for example this code:
use strict; use warnings; use 5.010; my $x = 2; my $y = 3; my $z = 'Take ' . ($x + $y); say $z;
It will print
On the other hand, if we replace the concatenation with interpolation:
my $z = "Take ($x + $y)";
Take (2 + 3)
You might have noticed that I also changed the quotes from single-quote to double-quote when I wanted to use interpolation. We'll discuss this in a separate article.
x the repetition operator
The x operator expects a string on its left-hand side and a number on its right hand side. It will return the string on the left hand side repeated as many times as the value on the right hand side.
use strict; use warnings; use 5.010; my $y = 'Jar '; my $z = $y x 2; say $z; say $y x 2 . 'Binks';
Jar Jar Jar Jar Binks
I think this operator is rarely used, but it can be quite useful in those rare cases. For example when you want to add a line the same length as the title of your report:
use strict; use warnings; use 5.010; print "Please type in the title: "; my $title = <STDIN>; chomp $title; say $title; say '-' x length $title;
Here the line we print under the title is exactly the same lengths (in number of characters) as the title itself.
$ perl report.pl Please type in the title: hello hello ----- $ perl report.pl Please type in the title: hello world hello world -----------
++ on a string
Although one might expect the auto-increment operator (++) to work only on numbers, Perl has a special use for the ++ operator on strings.
It takes the last character and increments it by one according to the ASCII table restricted to letters. Either lower-case letter or upper-case letters. If we increment a string that ends with the letter 'y' it will change it to 'z'. If the string ends with 'z' then an increment will will change it to be the letter 'a', but the letter to the left of it will be incremented by one as well.
use strict; use warnings; use 5.010; my $x = "ay"; say $x; $x++; say $x; $x++; say $x; $x++; say $x; $x--; say $x;
The result is:
ay az ba bb -1
As you can see -- does not work on strings.