# New Ticket Created by George # Please include the string: [perl #17733] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17733 >
Hello, The following script (with real $host,$user and $pwd) use Net::Telnet; $host='hhhhh'; $user='uuuuu'; $pwd='ppppp'; $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', Prompt => '/\$ $/i'); $telnet->open($host); $telnet->login($user, $pwd); print $telnet->cmd('who'); is working fine on PC using "perl, v5.6.1 built for cygwin-multi" e.g. $ perl t.pl bkosag pts/ta Oct 2 09:16 root pts/tb Jul 16 09:15 bkuenr ttyp1 Oct 1 14:19 root pts/tc Jul 22 09:21 bkosag2 pts/td Oct 2 11:34 root pts/th Sep 16 17:07 root pts/ti Jul 24 15:38 BUT, on Unix (HP-UX B.11.00 U 9000/800) with "perl, v5.6.1 built for PA-RISC2.0" is not printing result, e.g. ssus31:/home/bkosag/gk/t/telnet$ perl t.pl ssus31:/home/bkosag/gk/t/telnet$ Is this known problem? How can it be fixed? Thanks, George.