me@ubuntu01$ telnet 10.0.0.1 1234
Trying 10.0.0.1...
Connected to 10.0.0.1.
Escape character is '^]'.
SSH-2.0-OpenSSH_7.4
####
me@ubuntu01$ telnet 10.0.0.2 1235
Trying 10.0.0.2...
##
##
#!/usr/bin/perl
use warnings;
use strict;
use Net::Telnet;
sub attemptTelnetCheck
{
# host is a string, expressing an IPv4 address:
my ($host) = @_;
# Create a telnet object to use TCP port 1234, timeout 3 seconds:
my $telnetObj = new Net::Telnet( Port => '1234', Timeout => 3 );
# Set errormode to "return error message upon failure", not die immediately:
# (I'm not sure this works)
my $telnetMode = $telnetObj->errmode("return");
# Try to open telnet session to host:
$telnetObj->open($host);
# How do I check to see if $telnetObj is valid???
if(exists($telnetObj)) # Line 22
{
# Close telnet session:
$telnetObj->print('exit');
# Return TRUE:
return 1;
}
else
{
# Failure! Return FALSE:
return 0;
}
}
if(attemptTelnetCheck('10.0.0.1')
{
print "SUCCESS!";
}
else
{
print "failure.";
}
##
##
exists argument is not a HASH or ARRAY element or a subroutine at ./telnetTest.perl line 22.
##
##
if(exists($telnetObj))