sub my_sum1 {
($first,$second)=@_;
return($first+$second);
}
sub my_sum2 {
$first=$_[0];
$second=$_[1];
return($first+$second);
}
exit;
++++++++++++++++++
Perl的表达是非常灵活的，以上两个函数是等效的，还有其他写法，这里不多举例了，执行结果为：
sum1 = 3 sum2 = 3
第一种写法是比较常见的，第二种是简单直接的写法，你可以只接收你想要的参数，它的好处是如果你接收了一万个参数，你可以用$_[999]来接收第999 个参数，而其他的就不用管。在PERL中，当一个自定义函数接收参数时，它都放在数组@_中，$_[0],$_[1]就是从该数组中去取参数。
其实很简单，所有传入perl过程的参数都是以@_身份传入的。如果调用一个有两个参数的函数，它们在函数内部可以作为@_数组的前两个成员访问：$_ [0]和$_[1]。因为@_只是一个有着奇怪名字的普通数组，所以你可以像处理普通数组一样随意的处理它，知道了这一点，其他的书写模式也就不奇怪了：
比如：($first,$second)=@_; 就是将数组@_中的两个元素分别付给$first,$second,由于@_是数组，所以将$first,$second用括号括起来表示列表环境。
还有什么$first = shift; $second = shift; 将@_中的第一个元素付给$first，第二个元素付给$second。
Perl 中的特殊变量 $&, $`,$' 用在模式匹配中
$& 用来存放匹配中的值
$` 用来存放匹配中之前所有字符
$' 用来存放匹配中之后所有字符
如：
#!/usr/bin/perl -w
if("Hello good there,neigbor hello" =~ /Sw+,/){
print "That actually matched '$&'. ";
print $`." ";
print $'." ";
}
执行的结果为：
That actually matched 'there,'.
Hello good
neigbor hello
---------------------------
另外常用的变量@_
@_ 是子程序的一个私有变量；如果有一个全局变量@_，它将在此子程序调用前存储起来，当子程序调用完成后，其早期的值会被重新赋还给@_。这意味着当将参数传递给子程序时不用担心它会影响此程序中其它子程序的@_这个变量的值。嵌套的子程序调用时，@_的值和上述类似。甚至此子程序递归调用时，每一次调用将得到新的@_，因此子程序调用时将得到其自身的参数列表。
除非调用的子程序前有&而后面没有括号(或者没有参数)，此时@_从此调用者的上下文(context)得到。这通常不是个好主意，但有时很有用。
