13. Perl 自定义函数(子程序)

perl 语言支持自定义函数, 通过自定义函数, 我们可以重复利用已有代码, 提供工作效率, 简短代码行数.我们可以封装一些常用的方法存储起来, 以后需要用到的时候,直接拿来用就行了, 不用再重复开发了.

1. perl 函数特点

函数定义使用关键字 sub + 函数名函数调用使用关键字 & + 函数名函数参数为一个无限制长度的列表直接量函数都有一个返回值, 为一个无限制的列表直接量, 可使用return 返回函数名不能以数字开头, 可由字母,数字,下划线组成函数体由大括号{} 限制函数可在脚本中任意位置定义, 在使用前, 不需要对函数做实现声明函数定义属于全局的

2. 变量作用域

perl 语言变量按作用域分,可分为全局变量和局部变量.

全局变量: 作用域为整个perl 脚本, 不加关键字my 和 自动创建的变量都属于全局变量局部变量: 定义变量时, 使用my 修饰的变量为全局变量, 作用域为最近的一个{} 之间, 超出这个范围则不能访问定义的变量, 因此局部变量又称私有变量.

2.1 循环中定义私有变量

#定义字符哈希 %char_hs = ( A, 'a', B, 'b', C, 'c'); #获取哈希的key 列表 @keys = keys %char_hs; #for 中定义的key 和 value 只能在for 循环中访问 for my $key (@keys){ my $value = $char_hs{$key}; } print "$key -> $value \n";

2.2 函数中定义

# 函数中定义的局部变量只能在函数块儿中访问 sub sayHello(){ # 如果同时定义两个局部变量, 必须使用()括起来,否则只会定义第一个. my (name1, name2) = ("mirror", "zong"); print "hello, $name1 and $name2\n"; } &hello; print "name1:$name1, name2:$name2\n";

3. 函数定义和调用

函数定义: sub funName () {}函数调用: &funName (param…); #函数定义 sub sayHello(){ print "hello,world"; } #函数调用 &sayHello;

4. 函数传参

调用函数时, 所传入的所有参数都会存入@_数组中, 无论你传的是标量, 数组, 还是哈希, 都会自动转换并存储在@这个数组中, 可以通过$[idx]来获取具体参数

4.1 标量

函数只接受一个参数时,通常是用标量接受如果传入为标量, 在函数内修改参数的值, 不会影响标量的值 sub hello(){ # 获取参数个数 my length = @_; # 复制参数 my $param = $_[0]; # 获取并删除删除 my $name = shift @_; } $name = "mirror"; &hello($name);

4.2 数组

函数调用时, 可以传入多个标量或直接量参数, 或一个数组参数, 函数中可用一个数组接收如果函数传入的是一个数组, 在函数内部修改数组元素, 不会影响原来的数组 sub hello(){ # 复制参数列表 my @array = @_; } #传入多个标量或直接量参数 & hello("mirror", "ghost"); #传入数组 @names = ("mirror", "ghost"); & hello(@names);

4.3 哈希

函数调用时可以传入一个哈希作为参数,函数中修改哈希不会影响原来的哈希 sub hello(){ # 复制参数数组为哈希 my %hash = @_; my @keys = keys %hash; my @values = values %hash; print "keys: @keys, values: @values \n"; } %char_hs = (A, 'a', B, 'b', C, 'c'); &hello(%char_hs);

4.4 标量数组混合

函数参数可以是标量, 哈希, 数组直接的混合传入, 但是如果哈希和数组进行了混合, 那么在方法内不好分离. 因为函数内部分离的方式是, 先使用shift @_ 将标量弹出, 最后将剩余的参数全部转换为数组或者哈希.

标量和数组混合: 只能和一个数组混合, 数组最后传入数组和哈希混合: 只能喝一个哈希混合, 哈希最后传入 sub hello(){ #弹出标量 my $name = shift @_; #将剩余参数转换为数组 my @books = @_; } sub hello2(){ #弹出标量 my $name = shift @_; #将剩余参数转换为哈希 my %book_hs = @_; } @books = ("java", "mysql", "linux"); @char_hs = (A, 'a', B, 'b', C, 'c'); #函数调用 &hello("mirror", @books); @hello("mirror", $char_hs);

5. 函数返回值

perl 中每一个函数都有一个返回值, 返回值底层都是列表, 可使用标量, 数组, 哈希接收.

5.1 标量

sub hello(){ return "mirrror"; } $name = &hello();

5.2 列表

sub hello(){ my @books = ("java", "mysql", "linux"); return @books; } @books = &hello();

5.3 哈希

sub hello(){ %char_hs = (A, 'a', B, 'b', C, 'c'); return %char_hs; } %char_hs = &hello();

6. 测试用例

6.1 测试脚本

#!/usr/bin/perl #开启警告提示 use strict; print "\n#################### 函数参数 ####################\n"; #标量 sub param_1(){ # 从@_中弹出第一个参数,@_中会删除这个参数 my $param = shift @_; print "param: $param\n"; } #数组 sub param_2(){ # 复制参数列表@_为@params,对@params 修改不会影响@_数组 my @params = @_; print "params: @params\n"; } #哈希 sub param_3(){ # 复制参数数组为哈希数组 my %hash = @_; my @keys = keys %hash; my @values = values %hash; print "keys: @keys, values: @values \n"; } #返回-标量 sub return_1(){ return "mirror"; } #返回数组 sub return_2(){ my @arrays = ("mirror", "ghost"); return @arrays; } #返回哈希 sub return_3(){ %hash = (A, 'a', B, 'b', C, 'c'); return %hash; } ############################ 主程序 #################################### print "\n#################### 测试函数参数: ####################\n"; $name = "mirror"; @names = ("mirror", "ghost", "zong"); %char_hs = (A, 'a', B, 'b', C, 'c'); #传参:标量 ¶m_1($name); #传参:数组 ¶m_2(@names); #传参:哈希 ¶m_3(%char_hs); print "\n#################### 测试函数返回 ####################\n"; #返回标量 $return_name = &return_1(); print "return_name:$return_name \n"; #返回数组 @return_names = &return_2(); print "return_names:@return_names\n"; #返回哈希 %return_hs = &return_3(); while (my ($key, $val) = each %return_hs){ print "$key -> $val \n"; }

6.2 脚本输出

#################### 函数参数 #################### #################### 测试函数参数: #################### param: mirror params: mirror ghost zong keys: A C B, values: a c b #################### 测试函数返回 #################### return_name:mirror return_names:mirror ghost A -> a C -> c B -> b