Trying to print part of an array and replace another string in the same array in Perl

Question

I am new to Perl and am trying to write a script to do the following.

I have an array, basically its an output of a command.

BIP: Message flow 'Message Flow name' on execution group 'EG' is running.(There are bunch of similar lines)

So I am using foreach $_(@array name) to read each line.

Now I just want the Message Flow name from the array and want to change running to started. and get that in the OP too. So, I want to get:

Message Flow Name,started as my OP.

Can you please help? I tried splice, split but no use.

Thanks in advance.

How about some of your code that has failed, some sample input and sample desired output? — foibs
– foibs, Commented Nov 6, 2013 at 13:23

m0skit0 · Accepted Answer · 2013-11-06 13:28:30Z

1

Try this

#!/usr/bin/perl

use strict;
use warnings;

my @messages = ("BIP: Message flow 'Name1' on execution group 'EG' is running", "BIP: Message flow 'Name2' on execution group 'EG' is running");
for (@messages) {
    if (/BIP: Message flow '(.*?)' .* running/) {
        print("$1 started as my OP\n");
    }
}

answered Nov 6, 2013 at 13:28

m0skit0

26k13 gold badges84 silver badges131 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user2689092 Over a year ago

This worked like a charm. Thanks a ton for the immediate help.

Collectives™ on Stack Overflow

Trying to print part of an array and replace another string in the same array in Perl

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related