Shell Programming and Scripting

Ok i have an expect script that logs into an appliance kinda like a Cisco router, runs a command, and I need to get some calculation out of the output of that command. The reason I have to use an expect script is the data I am trying to harvest does not have an SNMP variable assigned to it.

I need to run a command on the remote box and with the output of the rows that contain data divide 64511 by the second column. If the second column is more then 70% of 64511 send syslog or email (I think I can do that part) with IP address in the first column

Here is the output of my command run from an expect script.

wsd#wsd nat client session-table
Client NAT Sessions Table
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ NAT Address ³ Ports In Use ³ Free Ports ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132. 24³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132. 28³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132. 61³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.190³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.191³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.192³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.193³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.194³ 0 ³ 64511 ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
³ 10. 3.132.195³ 0 ³ 64511 ³

This part of the script will print the first line as seen below

10. 3.132. 24³ 0 ³ 64511 <---- this prints to the screen


$ssh->expect(2, ":");
$ssh->send("foo\n");
$ssh->expect(2, '#');
$ssh->send("wsd nat client session-table\n");
$ssh->expect(2, '#');
$read = $ssh->before();
my @values = split("\n", $read);
my $IP= $values[7];
$ssh->send("$IP\r");