Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: problem with Net::Telnet
Top Forums Shell Programming and Scripting problem with Net::Telnet Post 302314586 by lassimanji on Friday 8th of May 2009 07:14:13 PM
Old 05-08-2009
problem with Net::Telnet
#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet ();
my $t = new Net::Telnet (Timeout => 10,
Prompt => '/.*(#|>|\))\s*$/');
my $remote_host='home';
$t->open(Host => $remote_host, Port =>23);
$t->login('root', 'pass');

the error that I get when I run this file from the command prompt is

problem connecting to "home", port 23 :unknow error at line 9.
I cant seem to figure out whats wrong with it
 

10 More Discussions You Might Find Interesting

1. Solaris

boot net problem

Hi my friends when I want to make boot net for my server I have receive: Time out ARP/RARP note: I have use Ok boot net (this is my Syntax) so what is the problem? (2 Replies)
Discussion started by: bintaleb
2 Replies

2. Shell Programming and Scripting

Webpage to Telnet via Perl and Expect: Telnet problem?

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)
Discussion started by: jondo
1 Replies

3. Shell Programming and Scripting

Need Help on "waitfor" command in net::Telnet Module

Hi, Can anybody help me in writing command "waitfor" for string "C:\WINNT\Profiles\mfcf0508>" while using net::Telnet module. I tried the below format : $telnet->waitfor('/"C\:\WINNT\Profiles\mfcf0508>".*$/i'); Getting error as : pattern match timed-out Plz help me (1 Reply)
Discussion started by: sudhakaryadav
1 Replies

4. Windows & DOS: Issues & Discussions

Need Help on "waitfor" command in net::Telnet Module in PERL

Hi, Can anybody help me in writing command "waitfor" for string "C:\WINNT\Profiles\mfcf0508>" while using net::Telnet module. I tried the below format : $telnet->waitfor('/"C\:\WINNT\Profiles\mfcf0508>".*$/i'); Getting error as : pattern match timed-out Plz help me (3 Replies)
Discussion started by: sudhakaryadav
3 Replies

5. Shell Programming and Scripting

Need help on use of "cmd" command in net::Telnet module in PERL

in "cmd" command i want to copy the ouput of the command excuted to a particular file in a directory. How to do this..?? Ex : $telnet->cmd(String => 'allip:acl=a1;',Prompt => '/</'); i want to copy o/p of the command "allip:acl=a1;" in a log file in a particular directory. Plz suggest.. (1 Reply)
Discussion started by: sudhakaryadav
1 Replies

6. Shell Programming and Scripting

Using Net::Telnet in Perl to connect to an adsl modem

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)
Discussion started by: Ravendark
2 Replies

7. Shell Programming and Scripting

Pressing "Enter/Space bar" using Net::TELNET? in Perl

I'm trying to learn how to get my script to execute the enter button when it telnets into a router and the router displays output but you need to press the space bar or enter button to continue displaying my output of the router. How is this done? (0 Replies)
Discussion started by: xmaverick
0 Replies

8. Shell Programming and Scripting

NET::FTP Problem

I am facing some problem in the NET::FTP Library in perl script in the HPUX. I am using NET::FTP to ftp files from 23 remote servers. Except 1 server everything is working fine. I am getting this error from one server . but normal FTP is working fine for that server. everytime few files are ftped... (1 Reply)
Discussion started by: mohanm
1 Replies

9. Shell Programming and Scripting

Net::Telnet (match prompt)

Hi, The code below is used to telnet to list of devices and configure them. The program executes in this manner: 1. telnet to the first device in file.txt 2. one the telnet command is executed a "press any key to continue" prompts. 3. once a return key is executed it ask for username,... (1 Reply)
Discussion started by: sureshcisco
1 Replies

10. Shell Programming and Scripting

Perl variables inside Net::Telnet::Cisco Module doesn't work

I am writing perl script to configure Cisco device but Variables inside Net::Telnet::Cisco Module doesn't work and passed to device without resolving. Please advise. here is a sample of script: use Net::Telnet::Cisco; $device = "10.14.199.1"; ($o1, $o2, $o3, $o4) = split(/\./,$device);... (5 Replies)
Discussion started by: ahmed_zaher
5 Replies

LEARN ABOUT DEBIAN

net::inet6glue

Net::INET6Glue(3pm)					User Contributed Perl Documentation				       Net::INET6Glue(3pm)

NAME

       Net::INET6Glue - Make common modules IPv6 ready by hotpatching

SYNOPSIS

	use Net::INET6Glue; # include all glue
	use LWP;
	use Net::SMTP;
	use Net::FTP;
	..

DESCRIPTION

       Net::INET6Glue is a collection of modules to make common modules IPv6 ready by hotpatching them.

       Unfortunatly the current state of IPv6 support in perl is that no IPv6 support is in the core and that a lot of important modules (like
       Net::FTP, Net::SMTP, LWP,...) do not support IPv6 even if the modules for IPv6 sockets Socket6, IO::Socket::INET6 are available.

       This module tries to mitigate this by hotpatching.  Currently the following submodules are available:

       Net::INET6Glue::INET_is_INET6
	   Makes IO::Socket::INET behave like IO::Socket::INET6, especially make it capable to create IPv6 sockets. This makes LWP, Net::SMTP and
	   others IPv6 capable.

       Net::INET6Glue::FTP
	   Hotpatches Net::FTP to support EPRT and EPSV commands which are needed to deal with FTP over IPv6. Also loads
	   Net::INET6Glue::INET_is_INET6.

COPYRIGHT

       This module and the modules in the Net::INET6Glue Hierarchy distributed together with this module are copyright (c) 2008, Steffen Ullrich.
       All Rights Reserved.  These modules are free software. They may be used, redistributed and/or modified under the same terms as Perl itself.

perl v5.12.3							    2011-08-27						       Net::INET6Glue(3pm)
All times are GMT -4. The time now is 04:36 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy