Help for this page

Select Code to Download


  1. or download this
    use Net::Telnet ();
my $conn = new Net::Telnet (TelnetMode => 0);
...
($a,$b) = $conn->waitfor(Match=>'/...>/',Timeout=>100);
      
$conn->close;
  2. or download this
     Trying xxx.xxx.xxx.xxx...
Connected to xxx.xxx.xxx.xxx.
...
014>^]
telnet> quit
Connection closed.