#!/opt/perl/bin/perl
$ip = $ARGV[0];
die ("IP must be passed as an argument. $!\n") unless defined($ip);
use Net::Telnet ();
$handle = new Net::Telnet (Timeout => 10, Prompt => '/.*(#|>|\))\s*$/');
$handle->open("$ip");
$handle->login("MY_USER","PASSOWRD");
$handle->cmd("terminal length 0");
@lines = $handle->cmd("show cdp neighbor");
print "@lines";
#system("sleep 30");
$handle->cmd(exit);
$handle->close;
This Script telnets a Cisco device and execute a command and prints out the result. My Issues in this Script are :
1 - I understand all the lines Except this one “ Prompt => '/.*(#|>|\))\s*$/' “
I know its function is define the Prompt for cisco router but I need any one explain it for me I mean the syntax .
2 - I downloaded the telnet module from CPAN.org and tried to install it, it gives me an error like this :
Code:
CORE" perlmain.c
(Bundled) cc: warning 480: The -A option is available only with the C/ANSI C pro
duct; ignored.
(Bundled) cc: warning 480: The +Z option is available only with the C/ANSI C pro
duct; ignored.
(Bundled) cc: warning 422: Unknown option "f" ignored.
(Bundled) cc: warning 480: The +Onolimit option is available only with the C/ANS
I C product; ignored.
(Bundled) cc: warning 480: The +Opromote_indirect_calls option is available only
with the C/ANSI C product; ignored.
cpp: "/opt/perl_32/lib/5.8.8/PA-RISC1.1-thread-multi/CORE/perlio.h", line 121: e
rror 4065: Recursion in macro "PerlIO".
*** Error exit code 1
Stop.
*** Error exit code 1
And when I try to execute the script it gives me this error :
Code:
Can't locate Net/Telnet.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.8/PA-RIS
C1.1-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/site_perl/5.8.8/PA-RIS
C1.1-thread-multi /opt/perl_32/lib/site_perl/5.8.8 /opt/perl_32/lib/site_perl /o
pt/perl_32/lib/vendor_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/vendor
_perl/5.8.8 /opt/perl_32/lib/vendor_perl .) at ./t1 line 4.
BEGIN failed--compilation aborted at ./t1 line 4.
Last thing may helps you to resolve my issue is I have this version of perl :
Code:
This is perl, v5.8.8 built for PA-RISC1.1-thread-multi
hi, say we have servers whose ip is 100.100.100.1 to 100.100.100.10. now we have another server which is 200.200.200.2. is it possible to restrict servers from the range of (100.100.100.1 and etc.. ) to telnet to 200.200.200.2
thanks (8 Replies)
Hi,
How to write a script to perform telnet/ftp operation.
Also please refer some site to get reference about shell scripting.
Thanks in advance
-Arun. (1 Reply)
I am trying to use telnet in shell script but getting following error
error
Connected to crmapp00.agf.ca.
Escape character is '^]'.
Connection closed by foreign host.
Script
#!/bin/ksh
PATH=/usr/sbin/:/usr/bin:/usr/ucb:/etc:/usr/local/bin:.
telnet HOSTNAME <<SCRIPT
user userid... (9 Replies)
Hi All,
I was trying to use telnet in a script to access a certain processor on a certain port to view some processes. The problem is that when I use telnet the output is displayed for me.
The script is:
#!/bin/sh
cd /ahmed/ezzat/
rm ss7trace.log
touch ss7trace.log
chmod 755... (3 Replies)
Hi all,
I would like to write a ad hoc shell script that would allow me to do some telnet tests to multiple IP's and ports at the same time . So, I want to determine which one is successful and which one fails. So, basically I would like the shell to spawn the telnet test and to break out of... (3 Replies)
#!/bin/bash
glist=`cat /etc/group | cut -d ":" -f1,4`
ulist=`cat /etc/passwd | cut -d ":" -f1,6`
for i in $glist
do
echo "$glist"
done
for i in $ulist
do
echo "$ulist"
done
chkgrp=`cat /etc/group | cut -d ":" -f1`
for a in chkgrp
do (4 Replies)
Hi,
I need a script that take one parameter as destination hostname and two parameter as ranges and tries telnet and records the successful connections.
fo reg:
./testtelnet.sh destination-host 1000 1050
should give me all the port between 1000 and 1050 what successfully connected to... (10 Replies)
Hello,
I wrote a script for doing telnet.However the requirement got changed and now I have to write a telnet script that will
1. Do the telnet from all the virtual ips in a box(Ex: x.x.x.x is the box ip, and x.x.x.1,x.x.x.2 etc are virtual ips associated with that box.)
2. The port range... (0 Replies)
04-06-2008
