#!/usr/bin/perl -w
use Net::SNMP;

$session = Net::SNMP->session( -hostname  => '10.0.0.9', -version => '2', -community => 'public',);
$ifAdminStatus = '1.3.6.1.2.1.2.2.1.8';

$result = $session->get_request( -varbindlist => [$ifAdminStatus] );
print $result->{$ifAdminStatus};

#!/usr/bin/perl -w
use Net::SNMP;

$session = Net::SNMP->session( -hostname  => '10.0.0.9', -version => '2', -community => 'public',);
$ifStatus = '1.3.6.1.2.1.2.2.1';
# указываем сколько портов на комутаторе
$IF_max = 24;
for($i = 1; $i < $IF_max + 1; $i++){
$snmp_MIB = $ifStatus . ".8." . $i;
$result = $session->get_request("$snmp_MIB");
# выводим результат
print $result->{"$snmp_MIB"};
}

#!/usr/bin/perl -w
use Net::SNMP;
use Net::SNMP::Interfaces;

$session = Net::SNMP->session( -hostname  => '10.0.0.9', -version => '2', -community => 'public',);
$ifStatus = '1.3.6.1.2.1.2.2.1.8.';
my $interfaces = Net::SNMP::Interfaces->new( Hostname=> 10.0.0.9', Community => 'public' );
my @ifnames = $interfaces->all_interfaces();
#   запускаем цикл по перебору всех доступных сетевых интерфейсов устройства
for(@ifnames)
{
my $i=$_->index();
$snmp_MIB = $ifStatus . $i;
$result = $session->get_request("$snmp_MIB");
$result = $result->{"$snmp_MIB"};
if($i > 30){
}else{
# все порты по очереди(но не превышающие 30)
print $result;
# все порты без сортировки по номеру порта(но не превышающие 30) (номер порта - состояние)
#print $i ." " . $result . "\n\r";
}
}