> -----Original Message----- > From: Sarath Palety [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, December 03, 2002 5:37 AM > To: '[EMAIL PROTECTED]' > Subject: Perl up and down arrows > > > Hi all, > > I am trying to write a script for a Nortel Networks Baystack > 450 switch, > using the telnet module. Unfortunately the switch uses a > menu structure > that requires up and down arrows. I was wondering if any of > you knew how to > send the up and down arrows either throught the telnet module > or through any > other module.
Investigate the Term::Cap module on CPAN. Or, something like this: $uparrow = `tput ku`; # see tput(1) print $uparrow; The TERM environment variable (or as passed with tput -Ttype) will need to be set to match whatever the switch expects. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
