Select Code to Download

#./cisco.pl INPUT.txt OUTPUT.txt

4.21.103.0/24  |  4525:197 4525:1790 4525:1111 | 7323 3549 46133
10.10.10.0/24   |  % Network not in table
212.54.129.0/24 | 4525:197 4525:1790 | Local

router>sh ip bgp 4.21.103.0/24
BGP routing table entry for 4.21.103.0/24, version 336364302
...
      Origin IGP, metric 11, localpref 100, valid, local, best
     Community: 4525:197 4525:1790

#!/bin/perl
use Net::Telnet::Cisco;
...
  @cmd_output = $cs->cmd( "sh ip bgp $prefix" );
  foreach (@cmd_output) {
   chomp;