Perl Net :: Telnet在大命令输出时超时

command timed-out at CoyoteBridge4000.pl line 41

命令是有效的,但输出很大,这就是我认为超时发生的原因.我能做些什么来解决这个问题？因为我试图改变超时并且它没有解决问题.

#!/usr/bin/perl
use Net::Telnet ();
$tel = new Net::Telnet();

print "nFile Namenn";
my $name = <>;
chomp $name;

my @equipament;
my $i        = 0;
my $username = "admin";
my $passwd   = "zhone";
my $certo    = 0;
$co = "bridge show vlan 4000";

open(arquivo,"ip.txt");
my $i = 0;
while (<arquivo>) {
  $equipament[$i] = $_;
  chomp $equipament[$i];
  $i++;
}
close(arquivo);

open(resp,">$name.csv");
foreach (@equipament) {
  eval { $tel->open($_); };
  if ($@) {
    chomp $_;
    print resp "$_,UNREACHABLEn";
  }
  else {
    open(re,">temp.txt");
    $tel->login($username,$passwd);
    ###ERROR###
    @lines = $tel->cmd(String => "$co",Timeout => 600);
    #####ERROR#####
    print re @lines;
    close(re);
    open(re,"temp.txt");
    $encontrar = ":";
    while (<re>) {
      if ($_ =~ /$encontrar/) {
        chomp $_;
        print resp $_;
      }
    }
    close(re);
  }
}
close(resp);

print "nn DONE nn";