Perl 学习笔记－子程序

1.定义子程序　

　　使用sub关键字定义 ; 子程序名和标识符同要求, 但是有的特殊的可以用 &符号; 子程序是全局的, 不需要再使用前声明; 重名函数后者覆盖前者.

sub roger{

    $n += ; #全局变量$n

    print "Hello , sailor number $n!\n";

}

&roger  # 前面加&来调用, 不过没加好像也能调用.

　　返回值: 在子程序执行过程中会不断运算, 而最后一次运算的结果(不管是什么)都会被当成子程序的返回值. 最后一行作为返回值可以省略逗号

2.Perl函数参数

　　参数传递: Perl维护一个特殊数组变量 @_ , 这个变量在子程序执行期间有效, 子程序可以访问这个数组, 递归调用会有各自的 @_ , 因为Perl会自动保存和恢复

　　使用: 使用 $_[index] 来进行访问, 就想对一个数组 @roger , 可以使用 $roger[] 来访问 @roger 的第一个元素一样, 可能是内部规定吧; 如果使用 @_[index] 访问也能得到正确结果, 但是会得到一个警告: Scalar value @_[] better written as $_[]

　　Perl中所有的变量都是全局变量, 在程序的任何地方都能访问它们, 但是随时可以使用(不仅仅是在子程序中) my 操作符(也称为词法变量)来创建私有的变量. 参数变量 @_ 就是子程序的默认私有变量. 特殊情况: 使用 &subname 调用子程序, 并且没有参数时, @_ 会从上下文中继承下来.

sub max{

    my($m,$n) = @_;

    if($m > $n){$m}else{$n}

}

print &max(,)

　　my操作符会不改变赋值时的上下文; 不带括号时只能作用于一个变量, 多个变量要用 my()

@t = (,,);

my($roger) = @t;  # 列表上下文

my $r = @t; # 标量上下文

print $roger;   #

print $r;  #

3. return操作符

　　虽然在子程序中可以不用return进行返回(默认返回最后一次计算结果), 但是可以用return立即返回; 单写一个return,不给任何参数, 在标量上下文中返回undef, 在列表上下文中返回空列表.

4. 子程序调用省略 & 号

　　如果编译器在调用子程序之前看到了子程序的定义, 或者Perl可以从语法识别它是子程序调用, 那么子程序据可以像内置函数一样在调用时直接使用名字. 但是建议都加上 & , 避免与内置函数重名.

sub mycount{

    if($a < $b){ #访问全局变量

        $a .. $b

    }else{

        reverse $b .. $a

    }

}

$a = ; # 在函数调用之前赋值

$b = ;

print &mycount

5.持久性私有变量--使用state操作符

# 使用全局变量的情况

sub roger {

    $n += ;  #每次调用都会讲全局变量 $n 增加1, 第一次使用的时候没有说明$n是全局变量, 但是根据结果可以知道在子程序里面定义的也是全局变量

}

for($i=;$i<;++$i){

    &roger()

}

print "$n\n";

# 使用私有变量的情况

use 5.010;

sub roger {

    state $n = ; # 持久性私有变量 $n

    $n += ;

}

for($i=;$i<;++$i){

    print &roger();  #输出 1 .. 10, 使变量在第一次调用roger()函数结束之后仍然保留,而如果用my就会被销毁

    printf("\n");

}

print $n;  # undef

　　注意: 在 5.010中不能在列表上下文中初始化以下类型的state变量 state @array = qw(a b c); # wrong!

巴特西

Perl 学习笔记－子程序

最新文章

热门文章