UNIX for Dummies Questions & Answers

#!/usr/local/bin/perl
# By Hezki Englander / 22.3.2000
#

use Net::Telnet ();
if ($#ARGV < 0) {
        print "Usage: $0  interval  [num_of_conn]\n";
        exit;
}

$machine = '111.111.111.111';
$logfile = "cisco.log";
$interval = $ARGV[0];
if ($#ARGV > 0)
{       $connum = $ARGV[1]; }
else
{       $connum = 1; }
$| =1;

$t = new Net::Telnet (Timeout => 10);
$t->input_log($logfile);
$t->open($machine);
print "Connected to $machine\n";
$t->waitfor('/Password: $/');
$t->print("passwd");
$t->prompt('/LTD-INC>/');
$t->cmd("enable");
$t->waitfor('/Password: $/');
$t->print("passwd2");
$t->prompt('/LTD-INC#/');

$t->cmd("clear ip accounting");
print "Logged in successfully.\n";
print "Collecting statistics";
$count = 0;
while ($count < $interval) {
        sleep(1);
        print ".";
        $count++;
}
$t->cmd("show ip accounting");
@result = $t->cmd("logout");
print "done.\n";

print "Most heavy connection/s :\n" ;
print $result[0];
system("echo '@result' |  sort -n -k 4 |tail -$connum");
$t->input_log("");

 #!/bin/csh
( echo open hostname
  sleep 5
  echo username
  sleep 1
  echo password
  sleep 1
  echo dtterm ) | telnet