Perl学习笔记(2)默认变量，子函数，

####################默认变量

默认变量$_与@_

$_ is known as the "default input and pattern matching space". In other words, if you read in from a file handle at the top of a while loop, or run a foreach loop and don't name a loop variable, $_ is set up for you. Then any regular expression matches, chops
(and lcs and many more) without a parameter, and even prints assume you want to work on $_. Thus:

while ($line = <FH>) {

if ($line =~ /Perl/) {

print FHO $line;

}

print uc $line;

}

Shortens to:

while (<FH>) {

/Perl/ and

print FHO ;

print uc;

}

@_ is the list of incoming parameters to a sub. So if you write a sub, you refer to the first parameter in it as $_[0], the second parameter as $_[1] and so on. And you can refer to $#_ as the index number of the last parameter:

####################子函数(sub routine)

一、定义

子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：

sub subroutine{

statements;

}

二、调用

调用方法如下：

1、用&调用

&subname;

...

sub subname{

...

}

2、先定义后调用 ，可以省略&符号

sub subname{

...

}

...

subname;

3、前向引用 ，先定义子程序名，后面再定义子程序体

sub subname;

...

subname;

...

sub subname{

...

}

4、用do调用

do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);

三、参数传递

1、形式

&sub1(&number1, $number2, $nubmer3);

...

sub sub1{

my($number1, $number2, $number3) = @_;

...

}

2、传送数组

&addlist (@mylist);

&addlist ("14", "6", "11");

&addlist ($value1, @sublist, $value2);

...

sub addlist {

my (@list) = @_;

...

}

参数为数组时，子程序只将它赋给一个数组变量。如

sub twolists {

my (@list1, @list2) = @_;

}

中@list2必然为空。但简单变量和数组变量可以同时传递：

&twoargs(47, @mylist); # 47赋给$scalar，@mylist赋给@list

&twoargs(@mylist); # @mylist的第一个元素赋给$scalar，其余的元素赋给@list

...

sub twoargs {

my ($scalar, @list) = @_;

...

}

四、用别名传递数组参数

1、用前面讲到的调用方法&my_sub(@array)将把数组@array的数据拷贝到子程序中的变量@_中，当数组很大时，将会花费较多的资源和时间，而用别名传递将不做这些工作，而对该数组直接操作。形式如：

@myarray = (1, 2, 3, 4, 5);

&my_sub(*myarray);

sub my_sub {

my (*subarray) = @_;

}

2、此方法类似于C语言中的传递数组的起始地址指针，但并不一样，在定义数组的别名之后，如果有同名的简单变量，则对该变量也是起作用的。如：

$foo = 26;

@foo = ("here's", "a", "list");

&testsub (*foo);

...

sub testsub {

local (*printarray) = @_;

...

$printarray = 61;

}

当子程序执行完，主程序中的$foo的值已经成了61，而不再是26了。

3、用别名的方法可以传递多个数组，如：

@array1 = (1, 2, 3);

@array2 = (4, 5, 6);

&two_array_sub (*array1, *array2);

sub two_array_sub {

my (*subarray1, *subarray2) = @_;

}

在该子程序中，subarray1是array1的别名，subarray2是array2的别名。

五、返回值

缺省的，子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval，retval可以为列表。

####################默认变量在子函数中的使用

在PERL中，当一个自定义函数接收参数时，它都放在数组@_中，$_[0],$_[1]就是从该数组中去取参数。

#!/usr/bin/perl

$sum1 = my_sum1(1,2);

$sum2 = my_sum2(1,2);

print "sum1 = $sum1 sum2 = $sum2 ";

sub my_sum1 {

($first,$second)=@_;

return($first+$second);

}

sub my_sum2 {

$first=$_[0];

$second=$_[1];

return($first+$second);

}

exit;