Запрос второй строки из вывода команды в Perl

Вы читаете только первую строку из канала. Вам нужен либо цикл (while <Row1Stat>) { ... }) и чтение всех строк по одной, либо чтение всего содержимого канала за один раз, например, с помощью local $/ = undef;, что очищает разделитель входных записей (по умолчанию новая строка).

Вот пример чтения в цикле. Я удалил канал, чтобы сделать его минимальным полным проверяемым примером, поскольку команда srvctl на самом деле не нужна.

use strict; 
use warnings;

my $msg0 = "not running";
my $msg1 = 0;

while (<DATA>) {
    if (m/Listener LISTENER is running/) {
        $msg0 = "is running";
        $msg1 = 1;
    }
    elsif (m/Listener LISTENER is enabled/) {
        $msg0 = "is enabled";
        $msg1 = 2;
    }
}

print "Statistic.Name1:$msg1\n";
print "Message.Name1:$msg0\n";

__DATA__
srvctl status listener
Listener LISTENER is enabled
Listener LISTENER is running on node(s): XYZ

Вы не можете использовать блок else, чтобы установить «не работает», потому что вы читаете строку за строкой и не хотите переопределять найденную строку позже. Следовательно, я инициализирую это, когда объявляю переменные.

Теперь для того, чтобы проглотить весь вывод трубы и поработать над этим:

use strict;
use warnings;

my $msg0;
my $msg1;

local $/ = undef;
my $data = <DATA>;

if ($data =~ m/Listener LISTENER is running/) {
    $msg0 = "is running";
    $msg1 = 1;
}
elsif ($data =~ m/Listener LISTENER is enabled/) {
    $msg0 = "is enabled";
    $msg1 = 2;
}
else {
    my $msg0 = "not running";
    my $msg1 = 0;
}

print "Statistic.Name1:$msg1\n";
print "Message.Name1:$msg0\n";

__DATA__
srvctl status listener
Listener LISTENER is enabled
Listener LISTENER is running on node(s): XYZ

В обоих случаях вам нужно решить, какая линия ("LISTENER включен" или "LISTENER запущен") для вас более важна. При чтении строки за строкой добавьте проверку, что вы не перезаписываете свои переменные менее важным сообщением. Прихлебывая, отрегулируйте порядок чеков (ifs) так, чтобы самый важный шел первым.