Help for this page

Select Code to Download


  1. or download this
    my %options = (TTYPE => { 'DO' => sub {} },);
my $nto = Net::Telnet::Options->new(%options);
  2. or download this
    $t->open($host);
recv($t, $data, 1024, 0);
...
$nto->answerTelnetOpts($t, $data);
recv($t, $data, 1024, 0);
$nto->answerTelnetOpts($t, $data);
  3. or download this
    $t->telnetmode(1);
($prematch, $match) = $t->waitfor('/login:/');