傳遞Net::Applicance::Session變量到子函數(shù)

iamblackwolf

我在傳遞Net::Appliance::Session 這種類(lèi)型的變量到子函數(shù)時(shí)遇到個(gè)奇怪的問(wèn)題.
use strict;
use warnings;
use Net::Appliance::Session;
my $deviceIp = '192.168.10.1';
my $username = '****';
my $password = '*****';
my $enable_password = '******;

my $session_obj = Net::Appliance::Session->new(
                Host=>$deviceIp,
                Transport=>'SSH'       
                );
$session_obj->input_log(*STDOUT);
$session_obj->connect(Name=>$username,Password=>$password,SHKC=>0);
$session_obj->begin_privileged($enable_password);
&checkModel($session_obj);
$session_obj->close();
sub checkModel{
        my @a = @_;
        $a[0]->cmd('show version');
}

必須用：
sub checkModel{
        my @a = @_;
        $a[0]->cmd('show version');
}
這種方法定義子函數(shù)才能正確接收$session_obj.

但是用：
sub checkModel{
        my $a = @_;
        $a->cmd('show version');
}這種方法定義子函數(shù)不能正確接收$session_obj.

我debug了一下,$session_obj 不是一個(gè)scalar類(lèi)型的變量，是一個(gè)ref類(lèi)型的變量，在想子函數(shù)傳參的時(shí)候，與這個(gè)有關(guān)嗎？
能不能幫我解釋一下，想不通啊....

zhlong8

my $a = @_; 此時(shí)$a里面是@_的數(shù)組大小。因?yàn)樽髠?cè)為 scalar context
你應(yīng)該用 my $a = shift; #shift默認(rèn)參數(shù)在這里就是@_
或 my($a) = @_; #左側(cè)的 ($a) 提供 list context，所以 $a 就是 @_ 的第0項(xiàng)

參見(jiàn)置頂里面推薦的此貼：
http://www.72891.cn/viewthr ... &extra=page%3D1

iamblackwolf

回復(fù) 2# zhlong8

嗯，想通了，非常感謝!!!

2gua

記住了，上下文，就是Perl的精髓，突破了，Perl技術(shù)就突飛猛漲。