perl笔记-----switch

还在perl中拼命的写if...elsif...elsif..else...么，其实perl有switch，

而且我感觉perl的switch比神马高级语言的switch都强大。

look：

测试结果：

如果在一个block中有一个my修饰的变量和外界的一个变量同名，而且又需要在这个block中使用外界变量时，两个办法：

     第一个办法，用main的package修饰这个变量名，$main::global

     第二个办法，用our修饰，our $global，那么该block中接下来出现的所有$global都是外界的global

 

$x = 9;

sub mm{

    print "$x\n";

}

sub gg_my{

    my $x = 11;

    print "call-my $x\n";

    mm;

}

sub gg_local {

    local $x = 20;

    print "call-local $x\n";

    mm;

}

gg_my;

gg_local;

print $x;

输出结果是：

call_my 11

9

call_local 20

20

9

可以看出，local函数在创建全局变量的一个局部实例后即可将它传递给任何子例程并继续进行局部初始赋值。运算符my以与local函数同样的方法创建一次局部实例，然而，由my创建的局部实例不能传递给其它子例程，传递给子例程进行运算的将是全局值而非局部引用值。

当locla所在的子例程结束后，全局变量的值又恢复为初始定义值。