Help for this page

Select Code to Download


  1. or download this
       my $t = new Net::Telnet(Telnetmode => 1, Errmode => 'return');
   $t->prompt('/C:\\\\(.*)>/i');
...

   my $cmd = "blah blah blah (...)"; # 1287 characters of a VALID comm
+and
   my @r = $t->cmd(String => $cmd, Timeout => 60);
  2. or download this
       my @r = $t->print(String => $cmd, Timeout => 60);
   ($prematch, $match) = $t->waitfor(String => 'More? ', Timeout=>60) 
+or die("MORE NOT FOUND");