develooper Front page | perl.beginners | Postings from February 2002

net::telnet

Thread Next
From:
Veeraraju_Mareddi
Date:
February 23, 2002 00:45
Subject:
net::telnet
Message ID:
27B993528DFED411956700B0D0AA8C95024DED3C@hot.satyam.com
Dear All,

Please see the code here.
----------------------------------------------------------------------------
-----------------------
use Net::Telnet;
$telnet = new Net::Telnet(Port => 25);
$result ='Active';

@hosts=('208.220.254.1',208.220.254.2',208.220.254.3');

foreach $host(@hostes){

$telnet->open($host) or $result ='Not Active';

print " 25 port on $host is $result\n";
}
 
$telnet->close;
----------------------------------------------------------------------------
----------------------------

But This program terminates if one of them is Failed.

Is there any way to get it done.

Thank you very much.

With Regads
Rajuveera.
************************************************************************** 
This email (including any attachments) is intended for the sole use of the
intended recipient/s and may contain material that is CONFIDENTIAL AND
PRIVATE COMPANY INFORMATION. Any review or reliance by others or copying or
distribution or forwarding of any or all of the contents in this message is
STRICTLY PROHIBITED. If you are not the intended recipient, please contact
the sender by email and delete all copies; your cooperation in this regard
is appreciated.
**************************************************************************

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About