Did a little more poking around and then changed the command starting on line
11 to read as follows:
while ($report = <$t>) {
print $report;
}
Now it works, but I am not sure why? What condition is keeping that while
loop going? Is it the fact that the telnet session assigned to $t is still
open? Is it testing the actual TCP session status? A little enlightenment
would be greatly appreciated. BTW, Stein's "Network programming with Perl" is
an excellent resource for these types of scripts.
Terry
Now the program works for me as expected, with one exception, since the data
is intermittent, I am getting a time out from my while loop if there is a
delay of more than a few seconds before receiving the next data stream. I
tried changing the timeout parameter when opening the Telnet session, but if
I
understand the docs correctly that is referring to the port parameters of the
Telnet session and not the problem that I am experiencing.
Any and all help would be appreciated,
--
Terry Poperszky
[EMAIL PROTECTED]
my ($report, $t, $hostname);
$hostname = "tsa038";
use Net::Telnet;
$t = new Net::Telnet;
$t->open(Host => $hostname,
Port => 10014,
Timeout => 6000);
while ($report = $t->getline) {
print $report;
}
Morning all:
My goal is to write a program with will connect to the port (10014) of a
network device using telnet and echo to the screen as intermittent
information is passed to it. (At this time all the information being passed
is one way).
Now the program works for me as expected, with one exception, since the data
is intermittent, I am getting a time out from my while loop if there is a
delay of more than a few seconds before receiving the next data stream. I
tried chaing the timeout parameter when opening the Telnet session, but if I
understand the docs correctly that is referring to the port pramaters of the
Telnet session and not the problem that I am experiencing.
Any and all help would be appreciated,
--
Terry Poperszky
[EMAIL PROTECTED]
my ($report, $t, $hostname);
$hostname = "tsa038";
use Net::Telnet;
$t = new Net::Telnet;
$t->open(Host => $hostname,
Port => 10014,
Timeout => 6000);
while ($report = $t->getline) {
print $report;
}
-------------------------------------------------------
--
Terry Poperszky
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
