Как извлечь число/слово после определенного символа (perl, регулярные выражения)?

Добрый день!
На данный момент у меня есть скрипт, который заходит на оборудование через telnet, спрашивает информацию о железке, заносит ее в массив, а потом извлекает из массива строку содержащую последовательность символов "No.:"

@line = $t->cmd(Timeout => 120, String =>'show version'); 
@result = grep/\s(No.:)/, @line; 
print @result;

Результат:
Serial No.:ABCD1234EF56

Подскажите, как извлечь символы за знаком ":"?
  • Вопрос задан
  • 410 просмотров
Решения вопроса 1
@pcdesign
Можно и без регулярок обойтись:
my $a =  join(",", @result);
my @res = split(":", $a); 
print $res[1]
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы