perl月检cisco设备脚本

start:

[root@linkinfor ~]# cat /tmp/telnet/ip.txt
192.168.254.131
192.168.254.131
[root@linkinfor ~]# cat /tmp/telnet/command.txt
show users
show login

#!/usr/bin/perl -w
use Net::Telnet::Cisco;

open INPUT,"/tmp/telnet/ip.txt";

while ($ip=<INPUT>)
{ #1#
  chomp ($ip);
  my $telnet = Net::Telnet::Cisco->new(Host => $ip);
  $telnet->login('admin', '123');
  open L,"/tmp/telnet/command.txt";

     while ($command=<L>)
    { ##2##
      print $command;
      chomp ($command);
      my @output = $telnet->cmd($command);

     open (OUT, ">>/tmp/log$ip.txt");
       for my $i (@output) { ###3###
         print "$i\n";
         print OUT $i;
      } ###3###
     close (OUT);
    } ##2##
      $telnet->close;
} #1#

result:

[root@linkinfor ~]# cat /tmp/log192.168.254.131.txt
    Line       User       Host(s)              Idle       Location
   0 con 0                idle                 01:16:52  
*194 vty 0     admin      idle                 00:00:00 192.168.0.20

  Interface    User               Mode         Idle     Peer Address

     No login delay has been applied.
     No Quiet-Mode access list has been configured.

     Router NOT enabled to watch for login Attacks

    Line       User       Host(s)              Idle       Location
   0 con 0                idle                 01:16:53  
*195 vty 1     admin      idle                 00:00:00 192.168.0.20

  Interface    User               Mode         Idle     Peer Address

     No login delay has been applied.
     No Quiet-Mode access list has been configured.

     Router NOT enabled to watch for login Attacks

[root@linkinfor ~]# cat /tmp/log192.168.254.131.txt
    Line       User       Host(s)              Idle       Location
   0 con 0                idle                 01:16:52  
*194 vty 0     admin      idle                 00:00:00 192.168.0.20

  Interface    User               Mode         Idle     Peer Address

     No login delay has been applied.
     No Quiet-Mode access list has been configured.

     Router NOT enabled to watch for login Attacks

    Line       User       Host(s)              Idle       Location
   0 con 0                idle                 01:16:53  
*195 vty 1     admin      idle                 00:00:00 192.168.0.20

  Interface    User               Mode         Idle     Peer Address

     No login delay has been applied.
     No Quiet-Mode access list has been configured.

     Router NOT enabled to watch for login Attacks

PS、

 

open (OUT, ">>/tmp/log$ip.txt");
       foreach (@output) { ###3###
         print "$_\n";
         print OUT $_;
      } ###3###
     close (OUT);

open INPUT,";
while ($ip=<INPUT>)
{
  chomp ($ip);
  my $telnet = Net::Telnet::Cisco->new(Host => $ip);
  $telnet->login('a', 'a');
  open L,"/tmp/telnet/command.txt";
     while ($command=<L>)
    {
      chomp ($command);
    open (SLIP, ">>/tmp/log$ip.txt");
    my $MI = "\n=============================$command======================\n";
    print SLIP $MI;
      my @output = $telnet->cmd($command);
    open (OUT, ">>/tmp/log$ip.txt");
    for my $i (@output)
        {
            print "$i\n";
            print OUT $i;
         }
    }