I'm a newbie to the world of programming and so i decided to learn perl. I'm working on a project that telnets into a Cisco router and eliminates a specific line but i can't seem to get the thing to work. I dump the output into an array but i'm having a difficult time looking for the string in the array. Any suggestions? Here is the code:
Code:
#!/usr/bin/perl -w
use strict;
use warnings;
use Net::Telnet;
my $ip = $ARGV[0];
my $pass = "xxxx";
my $pass2 = "xxxxx";
my $t=new Net::Telnet(Errmode=>'return',Input_Log => "/tmp/input.log", Output_Log =>
"/tmp/output.log",Timeout=>30);
my $file = "/tmp/input.log";
$t->open($ip);
if($t->errmsg) { my $err=$t->errmsg; return $err; }
my ($prompt) = $t->waitfor('/Password: $/');
if($t->errmsg) { my $err=$t->errmsg; return $err; }
$t->print("$pass");
$t->waitfor('/>$)/');
$t->print('en');
$t->waitfor('/Password: $/');
$t->print("$pass2");
$t->waitfor('/#$/');
my @out=$t->cmd(String=>'sh run | inc connect',Prompt=>'/#$/');
my $line = @out;
t->print("config t");
$t->waitfor('/#$/');
$t->print(" no $line") if $line =~ '/^connect sgsn/';
$t->waitfor('/#$/');
$t->print("end");
$t->waitfor('/#$/');
$t->print("logout");
##### email results of cross connect bounce ####
my $to = 'xxxx.xxx@xxx.com';
chomp (my $date=`date '+%H:%M:%S %Z %a %b %e %Y'`);
my $subj="\"Cross Connects Bounced\"";
open(MAILX, "|/usr/bin/mailx -s $subj $to");
print MAILX "The cross connects for $ip were bounced at $date, @out\n";
close(MAILX);
Once the script logs into the router it executes a "sh run | inc connect " and dumps an output like so into an array.
The next job is to search for the connect sgsn Serial1/0:6 701 l2transport to see if it has it in the array and if it does i want the script to type into the prompt "no connect sgsn Serial1/0:6 701 l2transport"
Last edited by pludi; 10-15-2009 at 02:51 PM..
Reason: code tags, please...
I do not know that module you are using but there are several hints for you:
1. If you are learning then you should know that perl is perfect to create hash of hashes of hashes of ...
2. If you use a huge global hash that keeps everything then you never know where the hash is used / updated.
3. Perl is difficult to maintain - this is why Google moved to Python.
4. Telnet is in no way secure.
5. SSH is far superior over telnet.
6. You should never expect that 2nd side (telnet server in that case) returns something you expected. If it does not then your code would hang.
7. Can you set input & output as 1 file? Can you attach then here? It might be that there is some sync issue... and you should include them to get help.
8. You should not use
Code:
print "some @array";
The array contains multiple elements and you would see reference to the array rather than its content. You might try
Code:
for each (@array) { print $_;}
or
Code:
print(join($array));#There should be join separator somewhere but I do not remember on which place
Hello guys,
I am a newbie to all of this - I'd like some help with a file I have. It's a ~100mb CSV file with approximately 30 columns.
What I'd like to do is to search through the file and REMOVE any lines with a certain case insensitive string in any of the columns:
So my file looks... (4 Replies)
Trying to do some control flow parsing based on the index postion of an array member. Here is the pseudo code I am trying to write in (preferably in pure bash) where possible. I am thinking regex with do the trick, but need a little help.
pesudo code
if == ENDSINFIVEINTS ]]; then
do... (4 Replies)
Hi
I'm just messing around with bash and trying to learn it because I have a course next semester dealing with OS design where we need to know how to use SSH client and either bash or ksh. I've never done shell scripting before.
I just started today and I was wondering how parsing files... (1 Reply)
I have an array and two variables as below,
I need to check if $datevar is present in $filename.
If so, i need to replace $filename with the values in the array.
I need the output inside an ARRAY
How can this be done.
Any help will be appreciated. Thanks in advance. (2 Replies)
Hi Friends
Im so confused with using 'for' loop in ksh. I have a xml like the following:
<serviceProvider>
<serviceProviderID>1</serviceProviderID>
<serviceProviderName>Balesh</serviceProviderName>
<serviceFeeAmount>30.00</serviceFeeAmount>
</serviceProvider>... (2 Replies)
Hi,
I am new to programming and also to perl..But i know 'perl' can come to my rescue, But I am stuck at many places and need help..any small help is much appreciated... below is the description of what i intend to acheive with my script.
I have a files named in this format... (13 Replies)
Hello everyone,
I am having to do a lot of perl scripting these days and I am learning a lot.
I have this problem
I want to move files from a folder and all its sub folders to one parent folder, they are all .gz files..
there is folder1\folder2\*.gz
and there are about 50 folders... (1 Reply)
Hello everyone,
Just started UNIX today! In our school we use solaris. I just want to know how do I setup Solaris 10 not the GUI one, the one where you have to type the commands like ECHO, ls, pwd, etc... I have windows xp and I also have vmware.
I hope I am not missing anything! :p (4 Replies)
Hey guys,
I have this file generated by me... i want to create some HTML output from it.
The problem is that i am really confused about how do I go about reading the file.
The file is in the following format:
TID1 Name1 ATime=xx AResult=yyy AExpected=yyy BTime=xx BResult=yyy... (8 Replies)
