Hello,
my code is designed to write 4 columns but it only writes the first one. Can
anybody help me?
while($i<=$number){
$if="1.3.6.1.2.1.2.2.1.2.$i";
my $name = $session->get_request( -varbindlist => [$if]);
chomp($name->{$if});
my $ifoperstat="1.3.6.1.2.1.2.2.1.8.$i";
my $operstat = $session->get_request( -varbindlist => [$ifoperstat]);
my $ifadminstat="1.3.6.1.2.1.2.2.1.7.$i";
my $adminstat = $session->get_request( -varbindlist => [$ifadminstat]);
select (ENT);
write ENT;
$i++;
format ENT_TOP=
Num Interface Type OperStatus AdminStatus
=======================================================
.
format ENT =
@<< @<<<<<<<<<<<< @<<<<<<< @<<<<<<<
$i, $name->{$if}, $operstat->{$ifoperstat}, $adminstat->{$ifadminstat}
.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
