regex - Perl regular expressions to capture parts of command output -


edited question : have added third function. have come regex seems correct . (1st , 2nd function work expected. )

i have written couple of functions in library, , call functions test script. i'm having issues regular expressions. can me out regular expressions?

function 1:

sub ipsec_version {     ($self)  = @_;     $cmd     = 'sudo -s ipsec version ';     $version = 0;     #execute command    $self->execute($cmd);     foreach $line ( @{ $self->get_stdout() } ) {         if ( $line =~ m/strongswan/msx ) {             $version = $1;         }     }    return $version;  }

function call:

$self->{'ipsec_version'} = $self->{'ipsec_obj'}->ipsec_version(); info('[startup] ipsec version  : ' .  $self->{'ipsec_version'} );

actual output:

use of uninitialized value in concatenation (.) or string @ ... line 37.      ipsec version  :

expected output:

strongswan u5.1.2/k3.16.0-30-generic

command output:

i need script capture expected output string this

linux strongswan u5.1.2/k3.16.0-30-generic institute internet technologies , applications university of applied sciences rapperswil, switzerland see 'ipsec --copyright' copyright information.

function 2:

sub ipsec_status {     ($self,$connection_name) = @_;    $cmd = 'sudo -s  ipsec status ' .  $connection_name;    $status = 0;     #execute command    $self->execute($cmd);     foreach $line ( @{ $self->get_stdout() } ) {         if ( $line =~ m/security\sassociations\d\()/ ) {             $status = $1;         }     }      return $status; }

function call: 

   $self->{'ipsec_status'} = $self->{'ipsec_obj'}->ipsec_status('connection');   ('[startup] ipsec status  : '  .  $self->{'ipsec_status'} );

actual output:

info    [startup] ipsec status  : 0

expected output:

security associations (1 up, 0 connecting)

command output:

i need script capture expected output string this

security associations (1 up, 0 connecting):       connection[3]: established 3 seconds ago, 1.1.1.19[1.1.1.19]...10.81.1.50[10.81.1.50]       connection{3}:  installed, tunnel, esp in udp spis: cb343e86_i abf6d1f2_o

function 3 :

sub ipsec_restart {      ($self) = @_;     $cmd = 'sudo -s ipsec restart';     $restart = 0;      $self->execute($cmd);      foreach $line ( @{ $self->get_stdout() } ) {      if ( $line =~ /(starting strongswan.*ipsec$)/ ) {           $restart = $1;           last;         }     }      return $restart; }

function call :

 $self->{'ipsec_restart'} = $self->{'ipsec_obj'}->ipsec_restart();       ('[startup] ipsec restart status   : '  .  $self->{'ipsec_restart'} );

expected output : see highlighted text below. checked in https://regex101.com/ . regex seems correct. /(starting strongswan.*ipsec$)/

starting strongswan 5.1.2 ipsec   actual output  : 0

the problem you're using $1 set if there captures in regular expression using. also, should add last don't go on searching matching line once have found one. lastly, wrong habitually add /m, /s , /x modifiers every regex match regardless of whether make difference, , leading m/ necessary if using other default slash delimiters.

the first function should contain

for $line ( @{ $self->get_stdout } ) {     if ( $line =~ /(strongswan.*\s)/i ) {         $version = $1;         last;     } }

and second function similar, although looks you're trying match security associations followed digit, isn't in text. have small a instead of capital, fine if use /i modifier. captures security associations , including last closing parenthesis on same line. need?

for $line ( @{ $self->get_stdout } ) {     if ( $line =~ /(security\s+associations.*\))/i ) {         $status = $1;         last;     } }

-

Popular posts from this blog

debugging - Reference - What does this error mean in PHP? -

what this? this number of answers warnings, errors , notices might encounter while programming php , have no clue how fix. community wiki, invited participate in adding , maintaining list. why this? questions "headers sent" or "calling member of non-object" pop on stack overflow. root cause of questions same. answers questions typically repeat them , show op line change in his/her particular case. these answers not add value site because apply op's particular code. other users having same error can not read solution out of because localized. sad, because once understood root cause, fixing error trivial. hence, list tries explain solution in general way apply. what should here? if question has been marked duplicate of this, please find error message below , apply fix code. answers contain further links investigate in case shouldn't clear general answer alone. if want contribute, please add "favorite" error message, warning or notic...
Read more

c++ - Why doesn't unordered_set provide an array access operator -

i'm curious why stl container unordered_set , has constant time complexity random access on average, not provide method accessing elements distance first element in container. example: t& unordered_set::operator[](size_t index) { return *(begin() + index); } accessing element "by distance" implies there meaningful way measure distance. trouble std::unordered_set is is, well, unordered . hence, there no meaningful way of explaining "some distance beginning" in non-arbitrary way. if want access distance, copy data vector: std::vector tmp(unordered.begin(), unordered.end());
Read more