dönüş hash ref işlevindeki bir işlevden döndürme

Question

Bir komutu yürüten, ifadeyi normal ifadeye göre ayrıştıran ve iki değer, durum ve ip döndüren bir işlev yazdım. İşlev çağrısı, değerleri beklendiği gibi döndürür. Bir skaler döndürmek yerine, hash ref dönmek istiyorum. Birisi bana aşağıdaki işlevi için nasıl bir ref ref dönüşü yapacağını söyleyebilir mi?

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); 
} 

işlev çağrısı: Yukarıda bir açıklama açıklanan benim şüphelerine Apart

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

, ben aslında elemanları ile $status ve $ip yerine edilmektedir

değişiklik aşağıdaki kodu kullanmak istiyorsunuz hash %ret, ve daha sonra

için bir başvuru döndürür. for döngüsünün sadece bir kez çalıştırılacağı ve bu kodun yanlış olduğu. Bunu düzeltmek yok, Eğer çalışırsa İşleviniz çağrısı

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

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