Question

我编写了一个执行命令的函数，根据正则表达式解析输出，并返回两个值，status和ip。函数调用返回预期的值。而不是返回标量，我想返回散列引用。有人可以告诉我如何为下面的函数返回散列引用吗？

sub status {
    my ($self,$int)  = @_;
    my $status  = 0;
    my $ip = 0;

    my $cmd     = 'cisco ios command ' . $interface;

    my $out = $self->{sshObj}->exec($cmd);

    foreach my $line (  $out ) {
      if ( $line =~ m/Session\s+status:\s+(.*)/ ) {
            $status = $1;
      }
      if ( $line =~ /(\d+.\d+.\d+.\d+)/ ) {
            $ip = $1;
      }
    }

    return ($status,$ip);
}

函数调用：

my ($status, $ip) =
           $self->{'$tunnel_obj'}->status($self->{'outer_t_1'});

    INFO ("status : $status");
    INFO ("ip : $ip");


Output :
status : UP
ip : 172.10.78.33

Answer 1

除了我在上面的评论中描述的疑虑外，我还会使用下面的代码

更改主要是用散列$status的元素替换$ip和%ret，然后返回对该散列的引用

但我必须再说一次，for循环只执行一次， 此代码错误，因为它代表 。只有当你说出你正在处理的模块时，我才能纠正它

sub status {

    my ( $self, $int ) = @_;

    my $out = $self->{sshObj}->exec("cisco ios command $interface");

    my %ret;

    for ( $out ) {
        $ret{status} = $1 if /Session\s+status:\s+(.*\S)/;
        $ret{ip}     = $1 if /(\d+.\d+.\d+.\d+)/;
    }

    \%ret;
}

您的函数调用将是

my $ret = $self->{$tunnel_obj}->status($self->{outer_t_1});

INFO("Status: $ret->{status}");
INFO("IP:     $ret->{ip})");

从perl中的函数返回散列引用

1 个答案: