if modifier - postfix if
Perl has if modifier syntax. You can place if keyword after a statement.
STATEMENT if CONDITION;
This is an example using the if modifier. If the line starts with "#"(regular expression /^#/), The program jumps to the next loop.
for my $line (@lines) {
next if $line =~ /^#/;
}
The benefits to use the if modifier is that a simple condition branch is written in one line. The combination with next are often used.
if statement creates scope, while the if modifier does not. Therefore, the if modifier has a little better performance.
unless modifier
The unless modifier also exists.
$num1 = 1 unless defined $num1;
The unless modifier is explained in detail below.
Example code
This is an example of if modifiers.
use strict;
use warnings;
# if modifier
print "1-2: Example of if modifier (next if)\n";
my @lines = (
'#comment',
'The first line',
'2nd line'
);
for my $line (@lines) {
# If starts with # , go to the next line
next if $line =~ /^#/;
print $line, "\n";
}
print "\n";
Output
1-2: Example of if modifier (next if) The first line 2nd line
Perl ABC