if控制结构
- chomp(my $a = <STDIN>); 用户输入变量$a的值
- if($a > 0){ 若$a大于0则执行命令
- print "$a is larger than 0\n";
- }
- elsif($a == 0){ 若$a等于0则执行命令
- print "$a equals 0\n";
- }
- else{ 若$a小于0则执行命令
- print "$a is smaller than 0\n";
- }
unless控制结构与if作用相反,表示判断为假时执行命令
- chomp (my $a = <STDIN>);
- unless($a > 0){
- print "$a is not larger than 0\n";
- }
while控制结构
- $b = 0; 给变量$b赋值为0
- while($b < 20){ 当$b小于20时则执行循环里的命令
- $b++;
- say "$b";
- }
- while(<>){ 始终让用户输入字符串
- if(/fred/){ 若输入的字符串中包含"fred"则打印,否则不打印
- print;
- }
- }
until控制结构,与while作用相反,当判断为假时执行循环
- until(0){
- print "test";
- }
foreach控制结构
- foreach (1..10){ 列表为1到10的数值,并对其进行循环打印
- print "$_\n";
- }
- foreach $str (qw/hello bye see you/){ 对字符串的列表进行循环打印
- print "$str\n";
- }
for控制结构,与foreach类似
- for ($i=10;$i>0;$i--){ 变量$i从10到1循环递减并打印
- print "$i\n";
- }