Нашел в рунете ваш замечательный скрипт http://www.lissyara.su/articles/freebsd ... ough_snmp/
пытаюсь сейчас его оптимизировать для своей задачи поставленной руководством (до этого момента с Perl никогда не сталкивался и подобные вещи не делал и вообще программист с меня плохой). Задача моя состоит в том чтобы написать скрипт который бы подключался бы к управляемому коммутатору d'link и проверял все порты на их состояние up или down. (кстать единственный скрипт который я нашел в рунете). Меня заинтересовали следующие строки в вашем скрипте
Код: Выделить всё
# строим MIB для состояния интерфейса
$snmp_MIB_status = $snmp_part_MIB . ".8." . $i;
$IF_status = $session->get_request("$snmp_MIB_status");
die "request error: " . $session->error unless(defined $IF_status);
# результаты - состояние интерфейса
$IF_status = $IF_status->{"$snmp_MIB_status"};
но да же при полном выполнении скрипта интерпретатор Perl натыкается на следующую ошибку:
Код: Выделить всё
Can't locate Mysql.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5 /usr/share/perl5 /usr/lib64/perl5 /usr/share/perl5 /usr/local/lib64/perl5/site_perl/5.10.0/x86_64-linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.0 /usr/lib64/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl /usr/lib/perl5/site_perl .) at scriptperl1.pl line 24.
BEGIN failed--compilation aborted at scriptperl1.pl line 24.
perl-DBI
perl-XML-parser
perl-DBD-mysql
но это не помогло
пробовал использовать DBI но началась полная ересть и в итоге я что то вообще запутался.
Помогите настроить ваш замечательный скрипт под мою задачу!