פרק 3: מבני בקרה

3.1 ביטויים בוליאניים

3.2 פקודת if וניגזרותיה

if (condition1) { 
    Set of commands… 
} elsif (condition2) { 
    Set of commands… 
} else { 
    Set of commands… 
}

if ($m==3) { 
    print “Avukado”; 
} 
print “Avukado” if ($m==3); 
print “Avukado” unless ($m != 3);

3.3 פקודת while

while ($line=<>) { 
    $count_lines++;
    if (substr($line,1) eq ’#’) { 
        next; 
    } 
    if ($line eq ”End\n”) { 
        last; 
    } 
    print $line;
}

3.4 לולאת for

my ($m, $i); 
$m=1; 
for ($i=1; $i<5; $i++) { 
    $m = $m*$i; 
}

my ($m, $i, $j) = (0,0,0); 
for ($i=1, $m=1; $i<5; $i++) { 
    $j++; 
    redo unless ($j>=$i); 
    if ($i+$m>30) { 
        last; 
    } 
    next if ($i==1); 
    $m=$m*$i/$j; 
}

foreach $count (10,9,8,7,6,5,4,3,2,1,"BOOM!") { 
    print "$count\n"; 
}

my @arr=(1,2,3,4,5); 
foreach $val (@arr) { 
    $val=$val*2+1; 
}

3.5 פעולות על תנאי

$x or $m++

open(my $fh, ">", "zorba.txt") or die “Cann’t open that file!\n”;

if (open(FH, ">", "zorba.txt")==0) { 
    die "Cann't open that file!\n"; 
}

3.6 תוכנית דוגמא

#!/usr/bin/perl -w 
use strict; 
my ($key, $val); 
my %h; 
while ($key=<>) { 
    defined($val=<>) or die "Odd number of line?!\n"; 
    chomp($key); 
    chomp($val); 
    $h{$key}=$val; 
} 
foreach $key (keys(%h)) { 
    print $key, "->", $h{$key}, ", "; 
} 
print "\n"; 
print $h{"message"}, "\n"; 
my $i ; 
for ($i=1; $i<$h{"loop count"}; $i++) { 
    last if ($h{"loop count"}*2-$i<5); 
    print $h{"loop msg"}, "\n"; 
}

<Start input file> 
5
Oops.
loop count
17
And the winner is
me.
loop msg
AhAhAhAh!
message
Resistance is futile
<End input file>

./chap3.pl <in3

perl chap3.pl <in3

נכתב ע"י שמואל פומברג, כל הזכויות שמורות © ראה פרק 1.5 לתנאי רשיון