perl--控制程序流

基本知识点：语句块、运算符、循环、标号、程序执行后退出perl。
一、语句块
一般用花括号括起来就好啦，重要的是一对儿花括号奥
{
    statment_a;
    statment_b;
    statment_c;
}
或者呢
{
    statment_a;
    {
        statment_x;
        statment_y;
    }
}
还可以呢
{statment;    {statment_a;}
        {statment_b;    }
}
总之呢，这些条件，你用花括号。也就是{}括起来，就可以的啦。
二、IF语句。
if (expression)    BLOCK
原理呢：根绝表达式的结果如果为真，那么就执行，要是假的呢，当然就不执行啦，举个例子好啦
print "choose nember";
$wangyadi=;
if ($wangyadi == 5)
{
        print"$wangyadi is 5 de airen\n";
}

这个例子就是让你选一个数字啦，如果和你想的一样呢，就会输出最下面的文字，如果不同就不会执行的啦。

另外一种比较常见的是这种形式的啦。
if    (expression)        #如果这个是真的
    BLOCK                #执行这个
    else
    BLOCK                #如果是假的，就执行这个啦
再来个例子看看。
$a=; chomp $a;
if ($a == 8)
        {print "a zhende is $a\n";}
        else
        {print "ni tamade sha a\n";}

试试这个吧。
#!/usr/bin/perl
$a=int(rand 10);
print "guess one number???\n";
$g=;
chomp $g;
if ($g>$a){
    print "too high!!\n";
}
    elsif ($g<$a){
    print "too small!!\n";
}   else {
    print "NB!!shaonian!\n:";
}

就是猜数字玩儿的游戏啦~~~~就猜中了一次。。。

#!/usr/bin/perl  -w
$first="liu";
$last="peng";
if ($first == $last) {
        # == is not what you want!
        print "the words are the same!\n";
}
虽然这明显是不相等的，但是因为使用了非字符的字符串，那么就等于是0 啦。0 当然==0啦。

使用字符串的时候就要使用下面这个表的运算符啦
eq                    等于
gt                    大于
lt                    小于
ge                    大于等于
le                        小于等于
ne                    不等于
        
十分重要的逻辑运算符奥~~