I have written a function which is in a library, and I call the functions from my test script.

The function returns 0.

ideally it should return Starting strongSwan 5.1.2 IPsec

I checked the regular expression in https://regex101.com/ . My regex seems to be correct. /(Starting strongSwan.*IPsec$)/ .

Can somebody help me out with the return value of the function.

Function : 

 sub ipsec_restart {

    my ($self) = @_;
    my $cmd = 'sudo -s ipsec restart';
    my $restart = 0;

    $self->execute($cmd);

    foreach my $line ( @{ $self->get_stdout() } ) {
     if ( $line =~ /(Starting strongSwan.*IPsec$)/ ) {
          $restart = $1;
          last;
        }
    }

    return $restart;
}

[download]

Function call : 

 $self->{'ipsec_restart'} = $self->{'ipsec_obj'}->ipsec_restart();
      ('[Startup] ipsec restart status  is  : '  .  $self->{'ipsec_res
+tart'} );

[download]

Expected output : See the highlighted text below.

 Starting strongSwan 5.1.2 IPsec  Actual output is  : 0

In reply to Regular expressions by user786

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.