Perl中控制结构用法总结
if控制结构[*]chomp(my $a = ); 用户输入变量$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 = );
[*]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";
[*]}
页:
[1]