Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Telnet Cisco / 2 сообщений из 2, страница 1 из 1
10.01.2013, 09:40
    #38104423
Dima ilenko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Telnet Cisco
часть моего скрипта:
2 функции
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
 sh_run();
 read_vlan();

sub sh_run
{
$t->print('sh run');
$data='';
for(;;)
{
    ($s,$s1)=$t->waitfor('/(--More-- |\#)/');
    $data.=$s.$s1;
    if ($s1=~/\#/)
        {
            goto loop2;
        }
    $t->print(' ');
}
loop2:
$data=~s/\n/|/g; 
}

sub read_vlan
{
  print "$data\n";
  @vlan_list=$data=~/\|(vlan .*?)\!/ig;
    }
foreach $k (@vlan_list)
{print " $k :\n";}
}



Теперь 2 вопроса :
1. Подскажите при считывание конфига из cisco функцией sh_run как правельно можно её переписать без loop?
2. При обработке функции read_vlan на 5 шаге почему то откидывает значение
заметил что если поменять на @vlan_list=$data=~/(vlan .*?)\!/ig; выбирает все но в массиве много что не нужно.

Модератор: Hint: Если код выделить при помощи тега SRC, он становится гораздо более читабельным.
А еще есть кнопка предварительного просмотра.
...
Рейтинг: 0 / 0
22.01.2013, 10:04
    #38119087
Warstone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Telnet Cisco
1) last
2) split
...
Рейтинг: 0 / 0
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Telnet Cisco / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]