The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Помогите с котдом"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Программирование под UNIX (Perl)
Изначальное сообщение [ Отслеживать ]

"Помогите с котдом"  +/
Сообщение от Рома (??) on 17-Авг-11, 14:51 
#!/usr/bin/perl

use Net::Telnet::Cisco;
   my $session = Net::Telnet::Cisco->new(Host => 'xx.xx.xx.xx');
  $session->login('dff', 'dfsdf');
  # Execute a command
  my @output = $session->cmd('show int FastEthernet 0/1');
{
my @result = grep /input rate/i, @output;
print @result;

    };
Выдает:

  30 second input rate 6000 bits/sec, 13 packets/sec

Помогите сделать так что б выдавало только "13 packets/sec"

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Помогите с котдом"  +/
Сообщение от allez (ok) on 17-Авг-11, 18:40 
>[оверквотинг удален]
>   $session->login('dff', 'dfsdf');
>   # Execute a command
>   my @output = $session->cmd('show int FastEthernet 0/1');
>  {
> my @result = grep /input rate/i, @output;
> print @result;
>     };
> Выдает:
>   30 second input rate 6000 bits/sec, 13 packets/sec
> Помогите сделать так что б выдавало только "13 packets/sec"

Читайте perldoc -f split.

А это вам для иллюстрации:

$ perl -e '@arr = "30 second input rate 6000 bits/sec, 13 packets/sec";  ($a, $b) = split(/, /, "@arr[0]"); print "a = $a\n"; print "b = $b\n";'
a = 30 second input rate 6000 bits/sec
b = 13 packets/sec

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Помогите с котдом"  +/
Сообщение от serg_56 on 15-Сен-11, 17:31 
можно и так

$session->login('dff', 'dfsdf');
# Execute a command
map{ print $1."\n" if(m!input rate.+\s(\d+\s+packets/sec)!)} $session->cmd('show int FastEthernet 0/1');

но тогда смотри map и regexp

Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Спонсоры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2022 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру