perl - 尝试打印数组的一部分并在 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");
    }
}