Im trying to make telnet session to one of my 700 switches and im using the Net::Telnet module and have this error ... "timed-out waiting for login prompt at telnet.pl line 13". that is this line "$t->login($username, $passwd);" but the username and password iv used are not wrong. What i have missing. The code iv used is like the module example..
And i have error time out and it is because of wrong prompt. So i need a solution about this prompt. Im using perl on my windows machine and the switches that im trying to connect is Dell. Any suggestions ?
Is it possible to write a Perl script that will attempt to telnet to multiple servers and login to each one?
We have numerous servers and on occasion we are unable to connect. I'd like to be more proactive and have a script that runs every 30 minutes and attempts to login and then will send an... (2 Replies)
All
Please help, i will telnet to router to obain the ping status and compare, if higher than normal latency, i will have further action..
if i do the telent and in perl script then ....
e.g the result i obtain from the router will be =' Success rate is 100 percent (5/5), round-trip... (4 Replies)
Somewhat long story:
I have a simple Perl CGI script that uses Expect to Telnet to a device and grab some data, and then spits it back to Perl for display on the Webpage.
This works for many devices I've tried, but one device just fails, it keeps rejecting the password on this device, only... (1 Reply)
Here is my requirement to automate the deployment procedure for my project.
Telnet to AIX box (say SERVER1) from windows machine (with USER1)
Select the server to login say "SERVER2"
su as different user say "USER2"(Owner of the deployed files)
Execute the script (Script has so many... (1 Reply)
Iam trying to connect to a system through Telnet using net::Telnet Module
#!/usr/bin/perl -w
use net::Telnet
$myPassword = "abcdef";
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open (10.10.20.00);
$telnet->waitfor ('/USERCODE: $/i');
$telnet->print('abc');... (2 Replies)
Hello,
First of all, congratulations on this forum! Very mice material!
This is my fist thread and it has to do with connecting to an adsl modem and executing some commands.
Heres what I do:
$username = 'admin';
$passwd = 'admin';
$telnet = new Net::Telnet ( Timeout=>10,... (2 Replies)
Hi Experts,
I use perl telnet and ssh for normal tasks and health checks.
everything works fine but i would like to run scripts silently and print only data as i wish to.
by silent i mean.no banners /no prompts/ nothing.
I will format data before i print it on screen.
just formatted... (3 Replies)
Hi Experts,
I am using perl to telnet on cisco boxes. We have this stupid cisco node which does not support "terminal Length0" command.
Since I am using Net::Telnet and capturing output with
@output = $telnet->cmd('cmd');
Say
@output = $telnet->cmd('show version');
Now problem... (2 Replies)
Hi...
Iam running the following Perl Script for telnet and running the commands.The script is exited without any errors.But the telnet commands are not executed,Please help me to resolve my problem.
My telnet session
#telnet 9.121.61.2 2013
Trying 9.121.61.2...
Connected to... (1 Reply)
Hi all
i have little problem finding solution about simple telnet script .... i have 250 routers and on some i have different password and on some they ask just for password no username. So for example 1,2,3 have username and password (user,password) 4, and 5 have different username and password... (0 Replies)
Discussion started by: IvanMP
0 Replies
LEARN ABOUT DEBIAN
net::cli::interact::manual::cookbook
Net::CLI::Interact::Manual::Cookbook(3pm) User Contributed Perl Documentation Net::CLI::Interact::Manual::Cookbook(3pm)NAME
Net::CLI::Interact::Manual::Cookbook - Miscellaneous recipes
Windows Support
The library works just fine under native windows (i.e use something like Strawberry Perl - no need for cygwin), for Telnet, Serial and SSH
connections. However one additional step is required for you to have success:
You must download the "plink.exe" application, and pass its filesystem location in the "app" parameter to "new()". Do not try to use any
other Telnet or SSH programs (for instance the Windows bundled "telnet") - they will not work. Here's an example:
my $s = Net::CLI::Interact->new(
personality => "cisco",
transport => "Telnet",
(Net::CLI::Interact::Transport::is_win32() ?
(app => "$ENV{HOMEPATH}\Desktop\plink.exe") : () ),
);
Unix Support
The library works fine on most Unix platforms. It will try to use the native "telnet", "ssh" (openssh) and "cu" programs for Telnet, SSH
and Serial connections, respectively. If you want to use another application, pass it in the "app" parameter to "new".
In some Unix environments there can be zombie child processes left around after running your script. If this happens, set the "reap"
option, like so:
my $s = Net::CLI::Interact->new(
personality => "cisco",
transport => "Telnet",
connect_options => {
reap => 1,
},
);
Phrasebook Entries
Prompts
These are nothing more than named regular expressions:
prompt configure
match /(config[^)]*)# ?$/
Macros
This example waits for the device to ask "[startup-config]?" and then responds with the text "startup-config".
macro copy_run_start
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send startup-config
To send instead a press of the Return key (output record separator), use:
macro write_mem
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send ''
To instead allow the user to pass in the file name, use a "sprintf" format.
macro save_to_file
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send %s
The user must then pass a parameter to the "macro" call, even if it's an empty string:
$s->macro('save_to_file', { params => ['file_name'] });
# or
$s->macro('save_to_file', { params => [''] });
Continuations
These are Macros which start with a match instead of a send:
macro more_pages
match / --More-- /
send ' '
Note that the parameter of the "send" is not sent with a Return character (output record separator) appended.
When included in a macro, the continuation can be in-line, like this:
macro show_ip_route
send show ip route
follow / --More-- / with ' '
Running Commands
Standalone Commands
Simply send the command you wish to execute to the library. If not already done, a connection to the device will be established
automatically:
$s->cmd('show ip int br');
Normally this matches against a default prompt, which has been discovered automatically, or set by you:
$s->set_prompt('user_prompt');
It's also possible to pass in a custom prompt for this command only:
$s->cmd('show ip int br', { match => qr/special prompt>$/ });
Composite Macro Commands
Call a predefined Macro from the phrasebook using this method:
$s->macro('write_mem');
Sometimes the Macro needs parameters:
$s->macro('to_priv_exec', { params => ['my_password'] });
You can't really create a Macro on the fly very easily, but with suitable use of "cmd()", "set_prompt()", and the "match" option to "cmd()"
it's possible to achieve some simple flexibility.
Reconfiguring On-the-Fly
Phrasebook
It's possible to load a new phrasebook by the following method, which must be passed at least the name of the personality:
$s->set_phrasebook({ personality => 'ios' });
You can pass any options which the Phrasebook module itself would take.
Prompt
The current prompt can be changed by passing the name of the new Prompt as it is known by the phrasebook:
$s->set_prompt('name');
If you want to test whether the current prompt matches a diffrent named Prompt from the phrasebook, this method can be used:
$s->prompt_looks_like('name');
perl v5.14.2 2012-06-12 Net::CLI::Interact::Manual::Cookbook(3pm)