上一节:
下一节:

  Perl 流程控制



  • if 语句

    Perl if 语句由一个布尔表达式和一个或多个语句组成。
    句法
    Perl编程语言中的if语句的语法是-
    
    if(boolean_expression) {
       # statement(s) will execute if the given condition is true
    }
    
    
    如果布尔表达式的值为true,则将执行if语句中的代码块。如果布尔表达式的计算结果为false,则将执行if语句结束后(右花括号之后)的第一组代码。在布尔上下文中,数字0,字符串'0'和"",空列表()和undef均为false,其他所有值均为true。否定真值!或不返回特殊的false值。
    流程图
    condition1
    
    $a = 10;
    # check the boolean condition using if statement
    if( $a < 20 ) {
       # if condition is true then print the following
       printf "a is less than 20\n";
    }
    print "value of a is : $a\n";
    
    $a = "";
    # check the boolean condition using if statement
    if( $a ) {
       # if condition is true then print the following
       printf "a has a true value\n";
    }
    print "value of a is : $a\n";
    
    
    尝试一下
    第一个IF语句使用小于运算符(<),该运算符比较两个操作数,如果第一个操作数小于第二个操作数,则返回true,否则返回false。因此,当执行以上代码时,它将产生以下结果-
    
    a is less than 20
    value of a is : 10
    value of a is : 
    
    
  • if ... else 语句

    Perl if 语句后可以跟可选的 else 语句,该语句在布尔表达式为false时执行。
    句法
    Perl编程语言中if ... else语句的语法是-
    
    if(boolean_expression) {
       # statement(s) will execute if the given condition is true
    } else {
       # statement(s) will execute if the given condition is false
    }
    
    
    如果布尔表达式的值为true,则将执行if代码块,否则将执行else代码块。
    流程图
    condition1
    
    $a = 100;
    # check the boolean condition using if statement
    if( $a < 20 ) {
       # if condition is true then print the following
       printf "a is less than 20\n";
    } else { 
       # if condition is false then print the following
       printf "a is greater than 20\n";
    }
    print "value of a is : $a\n";
    
    $a = "";
    # check the boolean condition using if statement
    if( $a ) {
       # if condition is true then print the following
       printf "a has a true value\n";
    } else {
       # if condition is false then print the following
       printf "a has a false value\n";
    }
    print "value of a is : $a\n";
    
    
    尝试一下
    执行以上代码后,将产生以下结果-
    
    a is greater than 20
    value of a is : 100
    a has a false value
    value of a is : 
    
    
  • if ... elseif ... else 语句

    一个 if 语句可以跟着一个可选的elseif ... else语句,这是测试使用单if... elseif声明的各种条件非常有用的。
    使用if,elsif,else语句时,要牢记几点。
    • elseif之后可以有一个if可以有零或一个else。
    • 一个if可以有零个到多个elsif,并且它们必须位于else之前。
    • 一旦elsif成功,将不会测试其余的elsif或else。
    句法
    Perl编程语言中if ... else语句的语法是-
    
    if(boolean_expression 1) {
       # Executes when the boolean expression 1 is true
    } elsif( boolean_expression 2) {
       # Executes when the boolean expression 2 is true
    } elsif( boolean_expression 3) {
       # Executes when the boolean expression 3 is true
    } else {
       # Executes when the none of the above condition is true
    }
    
    
    示例:
    
    $a = 100;
    # check the boolean condition using if statement
    if( $a  ==  20 ) {
       # if condition is true then print the following
       printf "a has a value which is 20\n";
    } elsif( $a ==  30 ) {
       # if condition is true then print the following
       printf "a has a value which is 30\n";
    } else {
       # if none of the above conditions is true
       printf "a has a value which is $a\n";
    }
    
    
    尝试一下
    在这里,我们使用等于运算符 ==,用于检查两个操作数是否相等。如果两个操作数相同,则返回true,否则返回false。执行以上代码后,将产生以下结果-
    
    a has a value which is 100
    
    
  • unless 语句

    unless 语句由布尔表达式和一个或多个语句组成。
    句法
    
    unless(boolean_expression) {
       # 如果条件为false将执行这里的代码块
    }
    
    
    如果布尔表达式的计算结果为false,则将执行语句中的代码块。如果布尔表达式的计算结果为true,则将执行unless语句结束后(右花括号后)的第一组代码。
    示例:
    
    $a = 20;
    # check the boolean condition using unless statement
    unless( $a < 20 ) {
       # if condition is false then print the following
       printf "a is not less than 20\n";
    }
    print "value of a is : $a\n";
    
    $a = "";
    # check the boolean condition using unless statement
    unless ( $a ) {
       # if condition is false then print the following
       printf "a has a false value\n";
    }
    print "value of a is : $a\n";
    
    
    尝试一下
    第一个,除非语句使用小于运算符(<),该运算符比较两个操作数,如果第一个操作数小于第二个操作数,则返回true,否则返回false。因此,当执行以上代码时,它将产生以下结果-
    
    a is not less than 20
    value of a is : 20
    a has a false value
    value of a is : 
    
    
  • unless ... else 语句

    unless 语句后可以跟可选的else 语句,该语句在布尔表达式为true时执行。
    句法
    
    unless(boolean_expression) {
       # boolean_expression 为false 执行
    } else {
       # boolean_expression 为true 执行
    }
    
    
    如果布尔表达式的计算结果为true,则将执行else代码块,否则将执行unless代码块。
    示例:
    
    $a = 100;
    # check the boolean condition using unless statement
    unless( $a == 20 ) {
       # if condition is false then print the following
       printf "given condition is false\n";
    } else { 
       # if condition is true then print the following
       printf "given condition is true\n";
    }
    print "value of a is : $a\n";
    
    $a = "";
    # check the boolean condition using unless statement
    unless( $a ) {
       # if condition is false then print the following
       printf "a has a false value\n";
    } else {
       # if condition is true then print the following
       printf "a has a true value\n";
    }
    print "value of a is : $a\n";
    
    
    尝试一下
    执行以上代码后,将产生以下结果-
    
    given condition is false
    value of a is : 100
    a has a false value
    value of a is : 
    
    
  • unless ... elseif ... else 语句

    unless 语句可以跟着一个可选的elseif...else语句
    在使用else,elsif和else语句时,要牢记几点。
    • unless 可以有零或一个else的。
    • 一个unless可以有零到多个的elsif,并且它们必须在else之前。
    • 一旦elsif 判断执行,将不会测试其余的elsif或else。
    句法
    
    unless(boolean_expression 1) {
       # Executes when the boolean expression 1 is false
    } elsif( boolean_expression 2) {
       # Executes when the boolean expression 2 is true
    } elsif( boolean_expression 3) {
       # Executes when the boolean expression 3 is true
    } else {
       # Executes when the none of the above condition is met
    }
    
    
    示例:
    
    $a = 20;
    # check the boolean condition using if statement
    unless( $a  ==  30 ) {
       # if condition is false then print the following
       printf "a has a value which is not 20\n";
    } elsif( $a ==  30 ) {
       # if condition is true then print the following
       printf "a has a value which is 30\n";
    } else {
       # if none of the above conditions is met
       printf "a has a value which is $a\n";
    }
    
    
    尝试一下
    在这里,我们使用等于运算符==,用于检查两个操作数是否相等。如果两个操作数相同,则返回true,否则重新运行为false。执行以上代码后,将产生以下结果-
    
    a has a value which is not 20
    
    
  • switch 语句

    switch 语句允许一个变量来针对值的列表进行测试。并针对每个case 检查 switch ,switch 模块已经实现使用Filter::Util::Call和Text::Balanced,需要安装这两个模块。
    句法
    
    use Switch;
    
    switch(argument) {
       case 1            { print "number 1" }
       case "a"          { print "string a" }
       case [1..10,42]   { print "number in list" }
       case (\@array)    { print "number in list" }
       case /\w+/        { print "pattern" }
       case qr/\w+/      { print "pattern" }
       case (\%hash)     { print "entry in hash" }
       case (\&sub)      { print "arg to subroutine" }
       else              { print "previous case not true" }
    }
    
    
    以下规则适用于switch语句-
    • switch 语句采用任何类型的单个标量参数,在括号中指定。
    • 该值后跟一个块,该块可以包含一个或多个case语句,后跟一个Perl语句块。
    • case 语句采用单个标量参数,并在case参数和当前switch 值之间选择合适的匹配类型。
    • 如果匹配成功,则执行与case语句关联的块。
    • 一个switch语句可以有一个可选的 else ,必须出现在switch 的结束。当没case 匹配时,怎执行该块。
    • 如果case块执行了无目标的 next,则控制权立即转移到case语句之后的语句(即通常是另一个case)。
    • 并非每个case 都需要包含next。如果没有 next 出现,则控制流不会落入到下一个case 和 else 的情况。
    示例:
    
    use Switch;
    
    $var = 10;
    @array = (10, 20, 30);
    %hash = ('key1' => 10, 'key2' => 20);
    
    switch($var) {
       case 10           { print "number 100\n" }
       case "a"          { print "string a" }
       case [1..10,42]   { print "number in list" }
       case (\@array)    { print "number in list" }
       case (\%hash)     { print "entry in hash" }
       else              { print "previous case not true" }
    }
    
    
    执行以上代码后,将产生以下结果--
    
    number 100
    
    
    在switch语句中,though-though通常不是一个好主意。但是,现在考虑一个失败的情况,我们将使用next将控件转移到下一个匹配的情况,在这种情况下为列表-
    
    use Switch;
    
    $var = 10;
    @array = (10, 20, 30);
    %hash = ('key1' => 10, 'key2' => 20);
    
    switch($var) {
       case 10           { print "number 100\n"; next; }
       case "a"          { print "string a" }
       case [1..10,42]   { print "number in list" }
       case (\@array)    { print "number in list" }
       case (\%hash)     { print "entry in hash" }
       else              { print "previous case not true" }
    }
    
    
    执行以上代码后,将产生以下结果-
    
    number 100
    number in list
    
    
  • ?: 运算符

    条件运算符 ?:可用于替换if ... else语句。它具有以下一般形式-
    
    Exp1 ? Exp2 : Exp3;
    
    
    其中Exp1,Exp2和Exp3是表达式。注意冒号的使用和放置。 值 表达式是这样确定的:Exp1被求值,将计算Exp2如果为true成为整个表达式的值。 如果Exp1为false,则计算Exp3,其值成为表达式的值。以下是使用此运算符的简单示例-
    示例:
    
    $name = "Mo";
    $age = 10;
    
    $status = ($age > 60 )? "A senior citizen" : "Not a senior citizen";
    
    print "$name is  - $status\n";
    
    
    尝试一下
    将产生以下结果-
    
    Mo is - Not a senior citizen
    
    
上一节:
下一节: