函数据传递参数接收的区别

Coolriver

各位perl高手，请教一个问题。

1. sub get_slave_info {
   
2.          my ($dbh) = @_;
   
3.         my $sql = "show slave status";
   
4.         my $r;
   
5.         eval{
   
6.                 local $SIG{ALRM} = sub { die 'TIMEOUT' };
   
7.                 alarm(30);
   
8.                 $r = $dbh->selectall_hashref($sql, 1);
   
9.                 alarm(0);
   
10.         };
    
11.         return ( values( %{$r} ))[0];
    
12. }

复制代码

这个函数的返回，传递给另外两个函数如下：
1

1. sub check_repl_1 {
   
2.     my ($repl_status) = @_;
   
3.         print Dumper($repl_status);
   
4. }

复制代码

2

1. sub check_repl_2 {
   
2.         my $repl_status = @_;
   
3.         print Dumper($repl_status);
   
4. }

复制代码

确得不一样的结果？ 请各位大侠指导一下为什么？

Coolriver

调用方法如下：
check_repl_1（get_slave_info（\$dbh））;
check_repl_2（get_slave_info（\$dbh））;

zhlong8

my ($repl_status) = @_;
my $repl_status = @_;
两个调用函数这里不同，my 不加括号是 scalar context。

Coolriver

my ($repl_status) = @_;
my $repl_status = @_;
两个调用函数这里不同，my 不加括号是 scalar context。
zhlong8 发表于 2011-03-24 16:16

是不是可以这样理解，当没括号是 会把@_的长度 赋给了 $repl_status. 当加了括号，就相当于shift(@_)给了$repl_status;

测了一下my $repl_status = shift(@_) 也能工作正常。

谢谢高手的指点。

zhlong8

是不是可以这样理解，当没括号是 会把@_的长度 赋给了 $repl_status. 当加了括号，就相当于shift(@_)给 ...
Coolriver 发表于 2011-03-24 16:25

    shift 有副作用，不能说完全相等。别的都正确

Coolriver

仔细又阅读了数据和列表的转换。加那个括号，就是把一个变量转换成列表中的一个值。

不加括号是一个标准备变量。

如：my ($r, $d) = @_;  == $r = $_[0] ; $d =$_[1] 这样的性质。

谢谢 zhlong8 一语道破天机。