#!/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)
Discussion started by: coolkid
0 Replies
LEARN ABOUT DEBIAN
locale::script
Locale::Script(3perl) Perl Programmers Reference Guide Locale::Script(3perl)NAME
Locale::Script - standard codes for script identification
SYNOPSIS
use Locale::Script;
$script = code2script('phnx'); # 'Phoenician'
$code = script2code('Phoenician'); # 'Phnx'
$code = script2code('Phoenician',
LOCALE_CODE_NUMERIC); # 115
@codes = all_script_codes();
@scripts = all_script_names();
DESCRIPTION
The "Locale::Script" module provides access to standards codes used for identifying scripts, such as those defined in ISO 15924.
Most of the routines take an optional additional argument which specifies the code set to use. If not specified, the default ISO 15924
four-letter codes will be used.
SUPPORTED CODE SETS
There are several different code sets you can use for identifying scripts. The ones currently supported are:
alpha
This is a set of four-letter (capitalized) codes from ISO 15924 such as 'Phnx' for Phoenician.
This code set is identified with the symbol "LOCALE_SCRIPT_ALPHA".
The Zxxx, Zyyy, and Zzzz codes are not used.
This is the default code set.
numeric
This is a set of three-digit numeric codes from ISO 15924 such as 115 for Phoenician.
This code set is identified with the symbol "LOCALE_SCRIPT_NUMERIC".
ROUTINES
code2script ( CODE [,CODESET] )
script2code ( NAME [,CODESET] )
script_code2code ( CODE ,CODESET ,CODESET2 )
all_script_codes ( [CODESET] )
all_script_names ( [CODESET] )
Locale::Script::rename_script ( CODE ,NEW_NAME [,CODESET] )
Locale::Script::add_script ( CODE ,NAME [,CODESET] )
Locale::Script::delete_script ( CODE [,CODESET] )
Locale::Script::add_script_alias ( NAME ,NEW_NAME )
Locale::Script::delete_script_alias ( NAME )
Locale::Script::rename_script_code ( CODE ,NEW_CODE [,CODESET] )
Locale::Script::add_script_code_alias ( CODE ,NEW_CODE [,CODESET] )
Locale::Script::delete_script_code_alias ( CODE [,CODESET] )
These routines are all documented in the Locale::Codes man page.
SEE ALSO
Locale::Codes
Locale::Constants
http://www.unicode.org/iso15924/
Home page for ISO 15924.
AUTHOR
See Locale::Codes for full author history.
Currently maintained by Sullivan Beck (sbeck@cpan.org).
COPYRIGHT
Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
Copyright (c) 2001-2010 Neil Bowers
Copyright (c) 2010-2011 Sullivan Beck
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-09-26 Locale::Script(3perl)
04-06-2008
