How do I send an arrow key in Perl using the Net::Telnet module?

Posted by pokstad on Stack Overflow See other posts from Stack Overflow or by pokstad
Published on 2010-03-23T17:35:15Z Indexed on 2010/03/23 17:53 UTC
Read the original article Hit count: 266

Filed under:

perl

|

telnet

|

escape-sequence

|

automation

|

screen-scraping

Using the Perl module Net::Telnet, how do you send an arrow key to a telnet session so that it would be the same thing as a user pressing the down key on the keyboard?

use Net::Telnet;
my $t = new Net::Telnet();
my $down_key=?; #How do you send a down key in a telnet session?
t->print($down_key);

Related posts about telnet

Telnet does not give a response

as seen on Server Fault - Search for 'Server Fault'
Some wireless access points are acting a little weird, so I want to reboot them every couple of hours. Luckily there exists a security flaw which lets me login as root through telnet when using port 1111 (without username and password). Now I want to use that to let my QNAP NAS execute the reboot… >>> More
Ougoing telnet: Unable to connect to remote host: Connection refused

as seen on Ask Ubuntu - Search for 'Ask Ubuntu'
I am trying to telnet from Ubuntu server (running Maverick) on ec2 to another machine I have set up not on ec2 - we'll call it "server-x". The two machines are connected via vpn. I can ping from the ec2 machine to server-x no problem. On another machine also on the vpn but also not on ec2 I can… >>> More
Why do I get 'use: command not found' when I run my Perl script?

as seen on Stack Overflow - Search for 'Stack Overflow'
I'm new to Perl. And I have used following code from one forum to connect to one of the server. but throwing error messages [root@Cus]# cat tt.pl #!/usr/bin/perl use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>2, Errmode=>'die'); $telnet->open('10.0.0.28'); $telnet->waitfor('/login:/'); $telnet->print('administrator'); $telnet->waitfor('/Password:/'); $telnet->print('test'); $telnet->waitfor('/switch8-12>/'); $telnet->print('whoamI'); $output=$telnet->waitfor('/switch8-12>/'); print… >>> More
Connect to remote server

as seen on Stack Overflow - Search for 'Stack Overflow'
Hi All, I'm new to perl. And I have used following code from one forum to connect to one of the server. but throwing error messages [root@Cus]# cat tt.pl #!/usr/bin/perl use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>2, Errmode=>'die'); $telnet->open('10.0.0.28'); $telnet->waitfor('/login:/'); $telnet->print('administrator'); $telnet->waitfor('/Password:/'); $telnet->print('test'); $telnet->waitfor('/switch8-12>/'); $telnet->print('whoamI'); $output=$telnet->waitfor('/switch8-12>/'); print… >>> More
Code to connect to remote server using perl

as seen on Stack Overflow - Search for 'Stack Overflow'
I'm written small code to connect to remote server using perl but observing error messages #!/usr/bin/perl -w use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>60, Errmode=>'die'); $telnet->open('192.168.50.40'); $telnet->waitfor('/login:/'); $telnet->print('queen'); $telnet->waitfor('/password:/'); $telnet->print('kinG… >>> More

Developer IT

How do I send an arrow key in Perl using the Net::Telnet module? - Developer IT

How do I send an arrow key in Perl using the Net::Telnet module?

perl

telnet

escape-sequence

automation

screen-scraping

Related posts about perl

Munin on Centos 6 - missing perl MODULE_COMPAT_5.8.8

Pain removing a perl rootkit

How To Avoid a Perl script calling an Another Perl Script

Perl :how to sort dates in perl

please suggest a perl book exclusively for perl programs

Related posts about telnet

Telnet does not give a response

Ougoing telnet: Unable to connect to remote host: Connection refused

Why do I get 'use: command not found' when I run my Perl script?

Connect to remote server

Code to connect to remote server using perl

Categories cloud