perlの関数からハッシュリファレンスを返します

Question

コマンドを実行し、正規表現に基づいて出力を解析し、statusとipという2つの値を返す関数を作成しました。関数呼び出しは、期待どおりに両方の値を返します。スカラーを返す代わりに、私はハッシュ・リファレンスを返したい。いくつかの人が、以下の関数のハッシュリファレンスを返す方法を教えてくれますか？

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を返し、そのハッシュへの参照を返します。

しかし、私は再びtと言わなければなりません帽子forループは一度だけ実行され、このコードは間違っていますです。あなたはあなたの関数呼び出しは、それが動作する場合、それを修正しないでください

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

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