powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Telnet Cisco
2 сообщений из 2, страница 1 из 1
(Perl) Telnet Cisco
    #38104423
Dima ilenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
часть моего скрипта:
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
(Perl) Telnet Cisco
    #38119087
Фотография Warstone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1) last
2) split
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Telnet Cisco
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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