Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Combine two PERL scripts

Posted on 2008-10-14
4
Medium Priority
?
376 Views
Last Modified: 2008-10-14
I use one script to pull data from a Cisco router then the second scripts uses the output file of the frist script to output the final file.

I wish to combine these into a single script.

FIRST SCRIPT:
#!/usr/bin/perl

#    Use the script as follows C:> PERL script.pl ipaddress > output_file_name
#
use Net::Telnet;
my $MB = 1024 * 1024;
open (FILE,@ARGV[0])|| die "Sorry, I can't seem to find @ARGV[1]. Please check
$my @lines;
the spelling.\n";
print "\n";
while (<FILE>) {
my $ip = $_;

my $t = Net::Telnet->new(Timeout => 240,
                    Prompt => '/.*#/',
                          Host => $ip);
my $debug=$ARGV[1];
$t->max_buffer_length(5 * $MB);
$t->login('username','password');
$t->cmd("terminal length 0");
print $ip;
my @lines = $t->cmd("show cable modem docsis device-class | in MTA");
print "\n\n@lines\n";
$t->cmd("");
$t->close;
}

SECOND SCRIPT
perl -ane "print \"clear cable modem $F[0] reset\n\"" mtas > newfile.txt

BTW....running this on Windows


0
Comment
Question by:ashvillerob
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 39

Accepted Solution

by:
Adam314 earned 1000 total points
ID: 22712347

#!/usr/bin/perl
# Use the script as follows C:> PERL script.pl ipaddress > output_file_name
#
use Net::Telnet;
 
my $FileName = shift;
die "Usage: $0 <ipaddress_file>\n" unless $FileName;
my $debug = shift;
 
my $MB = 1024 * 1024;
open (my $File, $FileName) or die "Could not open $FileName: $!\n";
print "\n";
while (<$File>) {
    my $t = Net::Telnet->new(
        Timeout => 240,
        Prompt => '/.*#/',
        Host => $_);
    $t->max_buffer_length(5 * $MB);
    $t->login('username','password');
    $t->cmd("terminal length 0");
    print $_;
    my @lines = $t->cmd("show cable modem docsis device-class | in MTA");
    foreach my $line (@lines) {
        print "clear cable modem " . (split(/\s+/,$line))[0] . " reset\n";
    }
    $t->cmd("");
    $t->close;
}

Open in new window

0
 
LVL 1

Author Comment

by:ashvillerob
ID: 22712408
I get the following error:

Can't locate object method "Select" via package "All" (perhaps you forgot to load "All"?) at script.pl line 29, <$File> line
21.

0
 
LVL 39

Expert Comment

by:Adam314
ID: 22712546
I'm assuming you got it working because you accepted an answer.  Is it working?
0
 
LVL 1

Author Comment

by:ashvillerob
ID: 22713176
Yes, It was my error, thansk!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

660 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question