Array von Hashes in Perl zurückgeben

Question

Die folgende Funktion meldet sich bei einem Router an, führt einen Befehl zum Abrufen des IPsec-Sitzungsstatus aus und gibt den Schnittstellennamen und die IP-Adresse als Zeichenfolge zurück. Anstatt eine Zeichenfolge zurückzugeben, möchte ich, dass die Funktion ein Hash-Array zurückgibt. Kann mir da jemand helfen?

sub cryptoSessionStatus { 
    my ($self,$interface) = @_; 
    my $status = 0; 
    my $peer_ip = 0; 

    #command to check the tunnel status 
    my $cmd  = 'command goes here ' . $interface; 
    #$self->_login(); 
    my $tunnel_status = $self->_login->exec($cmd); 

    #Regex to match the 'tunnel status' and 'peer ip' string in the cmd output 
    #Session status: DOWN/UP 
    #Peer: x.x.x.x 
    foreach my $line ( $tunnel_status) { 
     if ($line =~ m/Session\s+status:\s+(.*)/) { 
      $status = $1; 
     } 
     if ($line =~ m/Peer:\s+(\d+.\d+.\d+.\d+)/) { 
      $peer_ip = $1; 
     } 
    } 

    return ($status,$peer_ip); 
} 

Funktionsaufruf:

my $tunnel_obj = test::Cryptotunnels->new('host'=> 'ip'); 

my $crypto_sessions = $tunnel_obj->cryptoSessionStatus("tunnel1"); 

Answer 1

Dies sollte es tun:

my @session_states; 
my $status; 
foreach my $line ( $tunnel_status) { 
    if ($line =~ m/Session\s+status:\s+(.*)/) { 
     $status = $1; 
    } 
    if ($line =~ m/Peer:\s+(\d+.\d+.\d+.\d+)/) { 
     push @session_states, { ip => $1 , status => $status }; 
     $status = "" 
    } 
} 
return \@session_states; 
# 
# called like so 
# 
my $tunnel_obj = test::Cryptotunnels->new('host'=> 'ip'); 
my $crypto_sessions = $tunnel_obj->cryptoSessionStatus("tunnel1"); 
for my $obj (@$crypto_sessions) { 
    print $obj->{ip}, "\n"; 
    print $obj->{status}, "\n"; 
} 

Dies setzt voraus, die Session status Linie vor die Peer Zeile in der Ausgabe erscheint. Wenn es umgekehrt ist (Sie haben kein Beispiel geliefert, wie die Router-Ausgabe aussieht, also muss ich ein bisschen raten ...). Dh wenn die Peer Zeile vor der Session status Zeile steht, dann sollte es so sein :

my @session_states; 
my $peer_ip; 
foreach my $line ( $tunnel_status) { 
    if ($line =~ m/Session\s+status:\s+(.*)/) { 
     push @session_states, { ip => $peer_ip , status => $1 }; 
     $peer_ip = ""; 
    } 
    if ($line =~ m/Peer:\s+(\d+.\d+.\d+.\d+)/) { 
     $peer_ip = $1; 
    } 
} 
return \@session_states; 
# 
# called the same as above 
# 

Es gibt keinen Unterschied in dem Algorithmus - je nachdem, was an zweiter Stelle in der Ausgabe kommt - Peer oder Session status - definiert das Ende des Eintrags und eine Hash wird mit den beiden Eingaben und Aufschieben auf die @session_states Array erstellt.