Perl 若A则B判断的表示方法

Perl提供了另外一个“若A则B”的表示方法 。可以在一般的if语句中加上修饰语，即把条件表达式放在后面，比如：

some_statements if condition;

以这个语句为例，若condition为真，则执行some_statements部分。这样的写法与下面的写法相同：

if(condition){
		some_statements;
}

下面是一些类似的用法：

expression unless condition;  ##类似unless(condition){ expression };
expression while condition; ##类似 while(condition) { expression };
expression until condition; ##类似 until(condition) { expression };

上面这些语句都将先执行 condition，使其真假决定是否执行 expression。

修饰语必须是简单表达式，不能是语句代码块。
虽然条件判断写在后面，但却是先执行。

另外两种“若A则B”的表示方法：

this && that；

this || that；

示例：

#!/usr/bin/perl   -w
@a = (97..122);
@b = ('a'..'z');
@a == @b && print("They are equal\n");
@a == @b || print("They are not equal\n");

程序的逻辑关系如下：
表@a等于列表@b，则第三条语句前部分为真，继续执行&&后面的语句，输出“They are equal”；第四条语句，因为前面为真，不在执行||后面的语句。
表@a不等于列表@b，则第三条语句前部分为假，因此不再执行&&后面的语句；第四条语句，因为前面为假，所以还需要执行后面的语句，输出“They are not equal”；