perl入门知识（3）

引用
       在很多场合下使用引用传值，能在很大程度上提高代码的运行效率。
       定义一个引用在变量名前加”\”就可以了，如：
       $ra=\$a;
       $rb=\@b;
       $rc=\%c;
       变量名前面依然是$。
        而得到的引用是不能直接当做变量使用，需要解引用。解引用的方法是在变量名前加上变量原本类型所对应的符号。比如$rb是对一个数组的引用，那为了得到数组，就可以使用@$rb来得到整个数组。可以通过两种方式访问数组中数据，一种是$$rb[1]，另一种是使用“->”符号$rb->[1]。明显第二种方式更加简洁。对哈希的操作类似$$rc{a},$rc->{a}。

匿名存储
        匿名数据结构也是经常用到的，比如在useragent的post方法中会传递一个匿名的hash表。
        匿名数组的创建不再是使用（），而是[]；同样匿名hash使用{}创建，而不是（）。
        注意，它返回的是引用！
        $ra={'a'=>1,'b'=>2};
        $ra->{a}=3;
        print $$ra{a};

特殊用法
$str = 'my name';
$strstr='your name';
echo "${str}str is hello"; //my namestr is hello
echo "$strstr is hello"; //your name is hello
echo "$strabc is hello"; // Undefined variable: strabc in
{}的作用是限制变量名

sub函数（过程）

基本sub格式
sub subname{             
    local ($filevar) = @_;           
    local ($s1, $s1);
    ...
    …
    }  
    
&subname;   #调用加&
do my_sub(1, 2, 3); #另一种调用方式：do调用，等价于&my_sub(1, 2, 3);

基本的sub参数传递
实际是将参数@_赋值给局部变量
sub参数的两种表示方式：
整体形式（数组形式）   @_   
单独形式（数组元素形式）  $_[ ]

#!/usr/bin/perl
&gotest("stringgogo",1,3,"4test");

sub gotest{
    local($tmp1,$tmp2,$tmp3,$tmp4)=@_; #或my(@tmp)=@_;
    print "no.1 para is ",$tmp1,"\n";
    print "no.2 para is ",$tmp2,"\n";
    print "no.3 para is ",$tmp3,"\n";
    print "no.4 para is ",$tmp4,"\n";
}

#!/usr/bin/perl
&gotest("stringgogo",1,3,"4test");

sub gotest{
    print "no.1 para is ",$_[0],"\n";
    print "no.2 para is ",$_[1],"\n";
    print "no.3 para is ",$_[2],"\n";
    print "no.4 para is ",$_[3],"\n";
}