Надежная альтернатива waitfor() в Perl

Question

Вот фрагмент моего сценария, который будет ждать строки «имя пользователя:» и распечатать имя пользователя для входа в систему, а огромная часть загрузочного сообщения печатается до появления «username:», иногда скрипт отсутствует, чтобы найти его и возвращая слово «Не удалось найти имя пользователя:», особенно когда некоторые пропущенные сообщения о загрузке печатаются после строки «username:», так что есть ли более надежный способ сделать это? Благодарю.

my %words = (
    username => 'user1', 
    username_string => 'username: $', 
); 
($prematch, $match) = $obj->{comm}->waitfor(Match => "/$words{username_string}/",Errmode => "return"); 
if (!defined $match) { 
    print "Failed to find username:"; 
    return; 
} 
else { 
    $obj->{comm}->print($words{username}); 
} 

$ OBJ является объектом Net :: Telnet

Answer 1

на самом деле я не знаю, какой тип объекта связан с вашим $ OBJ. предполагая, что это может быть Net :: Telnet может быть, это может помочь вам:

perl-telnet-does-not-wait-for-the-end-of-the-previous-command

Futhermore:

($prematch, $match) = $obj->{comm}->waitfor(Match => "/$words{username_string}/",Errmode => "return"); 

может быть, это лучший подход, чтобы захватить выход CMD в переменную массива

my @lines = $telnet->cmd($comm); 
for (my $line: @lines) { 
    # your matching goes here.. 
} 

или попробовать это:

$t = new Net::Telnet(Host =>"192.168.0.1", Timeout => 5,Port => "1701", Prompt => '/>\$ $/'); 
$t->print($comm); 
$t->waitfor('/username: $/i'); 
print "result=", $s;