Perl子程序参数是数组或哈希表时,函数中获得这些参数值的方式和一般的标量变量是不同的。
Perl代码
- #!/usr/bin/perl
- use strict;
- use warnings;
- sub func{
- print "@_\n";
- }
- my $id = 1;
- my @info = ('PHPfans', 'phpfans.net');
- my %info = ("name"=>"PHPfans", "url"=>"phpfans.net");
- func($id, @info);
[root@PHPfans perl]# perl sub.pl
1 PHPfans phpfans.net
发现第一个参数和第二个参数合并成一个大数组了。如果是哈希表的话还会将键值也保存在 @_ 数组中。问题是怎么将各个参数分出来。这里第一个是标量变量,还可以用 shift 获取,然后剩下的就是第二个参数。但如果两个都是数组变量的话,这种方法显然就...