尝试打印数组的一部分并替换Perl中同一数组中的另一个字符串

Question

我是Perl的新手，我正在尝试编写一个脚本来执行以下操作。

我有一个数组，基本上是一个命令的输出。

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

所以我使用foreach $_(@array name)来读取每一行。

现在我只想要数组中的消息流名称，并希望将运行更改为已启动。并在OP中得到它。 所以，我想得到：

Message Flow Name,started as my OP.

你能帮帮忙吗？ 我尝试了splice，split但没有用。

提前致谢。

Answer 1

试试这个

#!/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");
    }
}