seenu18 has asked for the wisdom of the Perl Monks concerning the following question:

Hi I'm asked to write a sample script for the following scenario

PROCEDURE

Step 1: Login to the node using SSH or Telnet.

Step 2: Execute the below command

i. Show process cpu | grep Total à get the 5s time value 


[local]st-tb3-ssr1#show process cpustats | grep Total

Total system CPU % usage (5s, 1m, 5m): 7.44, 8.13, 8.64

[download]

Note: Total CPU utilization is based on an average of all the cores.

ii. Show memory -> get the Total, Used, Free 


[local]st-tb3-ssr1#show memory

Memory: Total 24555360k, Used 1679228k, Free 22876132k, Reserved 0k

[download]

iii. Show process -> get the process name, CPU % and memory 


[local]st-tb3-ssr1#show process

Load Average : 0.92 0.88 0.93

NAME PID SPAWN MEMORY TIME %CPU STATE UP/DOWN

pakio-protect 3905 1 7328K 00:04:50.10 1.17% run

u2l 3568 1 4680K 00:00:00.84 0.00% run
09:47:01

metad 3569 1 34760K 00:00:02.24 0.00% run
09:47:01

evtmd 3605 1 5624K 00:00:04.67 0.02% run
09:46:51

pnsd 3609 1 5764K 00:00:03.42 0.01% run
09:46:51

[download]

iv. Show process card # -> get the process name, cpu % and memory 


[local]st-tb3-ssr1#show process card 2

--------------------------------------------------------------

Slot number : 2/LP

Card Type : 10ge-10-port

Load Average : 0.55 0.78 0.89


NAME PID SPAWN MEMORY TIME %CPU STATE UP/DOWN

ns 1530 1 4636K 00:01:06.91 0.15% run
09:42:23

[download]

Step 3: Wait for the interval (60s) and go in an infinite loop

OUTPUT

1. File name : CPU_Utilization_<NodeIP>_<Date>_<Time> à This file will have the format as below 


Time Cpu Utilization


11.5

1.10%


11.55

1.10%

[download]

2. File name : MEMORY_Utilization_<NodeIP>_<Date>_<Time> à This file will have the format as below 


Time

Total Memory

[download]

I've scripted the login part so far 


#!/usr/bin/perl

use strict;
use warnings;
#use Net::OpenSSH;
use Net::Telnet;

my $hostname = 'xx.xxx.xxx.xxx';
my $hostname = 'xxxx:
my $username = 'xxxx';
my $password = 'xxxx';

my $telnet = new Net::Telnet ( Timeout=>60,Errmode=>'die');

$telnet->open($hostname);
print "Telnet Successful\n";
$telnet->waitfor('/login: $/i');
$telnet->print($username);
print "Username entered\n";
$telnet->waitfor('/Password: $/i');
$telnet->print($password);
print "Password entered\n";
$telnet->waitfor('/\[local\]xx\xxxx\xxxx\xxxx\> $/i');
print "Enable prompt\n";
$telnet->print('enable');
$telnet->waitfor('/Password: $/i');
print "CLI prompt\n";
$telnet->print($password);
$telnet->waitfor('/\[local\]xx\xxxx\xxxx\xxxx\# $/i');
my @var1 = $telnet->print("
$telnet->close;
print "Telnet session closed\n";

[download]

I need help with issuing commands and storing them in the file in the above specified format. At least help me with one show command and storing it's output in a file in the above specified format which is (I'm repeating here again).

h. File name : MEMORY_Utilization_<NodeIP>_<Date>_<Time> à This file will have the format as below 


Time

Total Memory

[download]

Replies are listed 'Best First'.
Re: Need help with a grep script
by roboticus (Chancellor) on Nov 08, 2013 at 11:32 UTC

    seenu18:

    The Net::Telnet page shows you how to get the output of the command into an array, so all you need to do is:

    • Delete the lines in the array you don't want, and
    • Format the lines you want to keep.

    I suggest using reading perldoc perlfunc and review the string-handling functions to find ideas on how to work with strings. Similarly, perldoc perlre could give you some pointers on how to use regular expressions for that task.

    Alternatively, you could hire someone to help you with that.

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]
[d/l]
[select]
Re: Need help with a grep script
by kschwab (Vicar) on Nov 08, 2013 at 14:39 UTC

    I'll help since this may push you back in the direction of using ssh instead of slinging router passwords around in cleartext :)

    use Net::OpenSSH;
use Net::Telnet;
my $promptre = '/\w+[\$\%\#\>]\s{0,1}$/o';
my $ssh = Net::OpenSSH->new('hostname', user => 'username',
                             password => 'password',
                             kill_ssh_on_timeout => 1,
                             timeout => 30);
my ($fh, $pid) = $ssh->open2pty({stderr_to_stdout => 1});
my $cn = Net::Telnet->new(
                fhopen => $fh,
                prompt => $promptre,
                timeout => 30,
                errmode => 'return',
                telnetmode => 0,
                cmd_remove_mode => 1,
                output_record_separator => "\r",
);
my @memory  = $cn->cmd("show memory");
my @process = $cn->cmd("show process");

    [download]
[reply]
[d/l]

      Using SSH is better than Telnet unless the assignment specifically says to use Telnet :-)

      -- FloydATC

      Time flies when you don't know what you're doing

[reply]
        Uh, okay...from the OP: 
        PROCEDURE

 Step 1: Login to the node using SSH or Telnet.
[reply]
Re: Need help with a grep script
by ww (Archbishop) on Nov 08, 2013 at 13:37 UTC
    Minus the sugar coating, this is NOT a code writing service. If you want to learn, take the advice offered above.

    Also, please heed the directions at the text entry box where you created the OP: <p> para tags around paragraphs </p> and code tags, <c> around your code and data </c>

[reply]

Back to Seekers of Perl Wisdom