[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 781
  • Last Modified:

Trying to script a telnet session.

Trying to script a telnet session. I can't get any command output for the telnet command. For the attached code, output is:

C:\>test_ping.pl
Done TELNET

changing the command to

open (TELNET, "echo telnet 172.20.1.254|");

The output is:

C:\>test_ping.pl
telnet 172.20.1.254
Done TELNET

#!perl
use warnings;
use strict;
 
my $Response;
 
open (TELNET, "telnet 172.20.1.254|");
while ($Response = <TELNET>){
	print $Response;
}
print "Done TELNET\n";
exit;

Open in new window

0
HilltownHealthCenter
Asked:
HilltownHealthCenter
1 Solution
 
Adam314Commented:
You won't be able to open a pipe with telnet.  You can use the NET::Telnet module instead

See here:
    http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
#!perl
use warnings;
use strict;
use Net::Telnet;
 
my $Response;
 
my $telnet = Net::Telnet->new();
$telnet->open("172.20.1.254")
  or die "Could not open connection\n";
 
while ($Response = $telnet->getline){
        print $Response;
}

Open in new window

0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now