传递Net::Applicance::Session变量到子函数

iamblackwolf

我在传递Net::Appliance::Session 这种类型的变量到子函数时遇到个奇怪的问题.
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');
}
这种方法定义子函数才能正确接收$session_obj.

但是用：
sub checkModel{
        my $a = @_;
        $a->cmd('show version');
}这种方法定义子函数不能正确接收$session_obj.

我debug了一下,$session_obj 不是一个scalar类型的变量，是一个ref类型的变量，在想子函数传参的时候，与这个有关吗？
能不能帮我解释一下，想不通啊....

zhlong8

my $a = @_; 此时$a里面是@_的数组大小。因为左侧为 scalar context
你应该用 my $a = shift; #shift默认参数在这里就是@_
或 my($a) = @_; #左侧的 ($a) 提供 list context，所以 $a 就是 @_ 的第0项

参见置顶里面推荐的此贴：
http://bbs.chinaunix.net/viewthr ... &extra=page%3D1

iamblackwolf

回复 2# zhlong8

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

2gua

记住了，上下文，就是Perl的精髓，突破了，Perl技术就突飞猛涨。