函數(shù)據(jù)傳遞參數(shù)接收的區(qū)別

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. }

復(fù)制代碼

這個函數(shù)的返回，傳遞給另外兩個函數(shù)如下：
1

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

復(fù)制代碼

2

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

復(fù)制代碼

確得不一樣的結(jié)果？ 請各位大俠指導(dǎo)一下為什么？

Coolriver

調(diào)用方法如下：
check_repl_1（get_slave_info（\$dbh））;
check_repl_2（get_slave_info（\$dbh））;

zhlong8

my ($repl_status) = @_;
my $repl_status = @_;
兩個調(diào)用函數(shù)這里不同，my 不加括號是 scalar context。

Coolriver

my ($repl_status) = @_;
my $repl_status = @_;
兩個調(diào)用函數(shù)這里不同，my 不加括號是 scalar context。
zhlong8 發(fā)表于 2011-03-24 16:16

是不是可以這樣理解，當(dāng)沒括號是 會把@_的長度 賦給了 $repl_status. 當(dāng)加了括號，就相當(dāng)于shift(@_)給了$repl_status;

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

謝謝高手的指點(diǎn)。

zhlong8

是不是可以這樣理解，當(dāng)沒括號是 會把@_的長度 賦給了 $repl_status. 當(dāng)加了括號，就相當(dāng)于shift(@_)給 ...
Coolriver 發(fā)表于 2011-03-24 16:25

    shift 有副作用，不能說完全相等。別的都正確

Coolriver

仔細(xì)又閱讀了數(shù)據(jù)和列表的轉(zhuǎn)換。加那個括號，就是把一個變量轉(zhuǎn)換成列表中的一個值。

不加括號是一個標(biāo)準(zhǔn)備變量。

如：my ($r, $d) = @_;  == $r = $_[0] ; $d =$_[1] 這樣的性質(zhì)。

謝謝 zhlong8 一語道破天機(jī)。