Help for this page

Select Code to Download


  1. or download this
    1. use Net::Telnet;
2. $telnet = new Net::Telnet ( Timeout=>10,  Errmode=>'die',Input_Log=
+>'out.txt',Prompt=>'/.*tstbld.*/');
...
5. $telnet->cmd(String=>'cd /builds/htpc2003r1/base/menu', Prompt=>'/.
+*htpc.*/');
6. $prompt = '/pkmsqa/';
7. print $telnet->cmd(String=>'who', Prompt=>$prompt);
  2. or download this
    [/builds/htpc2003r1/base/menu]
seahawk:>who
...
pkmsqa      pts/5       Nov 08 04:59     (10.80.12.154)
[/builds/htpc2003r1/base/menu]
seahawk:>
  3. or download this
    [/builds/htpc2003r1/base/menu]
seahawk:>who
  4. or download this
    [/builds/htpc2003r1/base/menu]
seahawk: