Problems with format

[Ruben Montes]

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]