Help for this page

Select Code to Download


  1. or download this
    Event Log: server:    SB TTYPE SEND
    Event Log: client:    SB TTYPE IS XTERM
    
  2. or download this
    use Net::Telnet;
    use Net::Telnet::Options;
    ...
    $t->open($host);
    $t->waitfor('/login:/');
    $t->print("$username");
    
  3. or download this
    ($prematch, $match) = $t->waitfor(Match => "/Welcome/");
    unless (defined $match) {
      print $t->errmsg;
    }