my @router = (
    [ qw/1 r1 20.100.2.100 router/ ],
    [ qw/2 r2 20.100.2.99  router/ ],
    [ qw/3 r3 20.100.2.80  router/ ],
);
for my $router ( @router ) {
    getRouter ( @{ $router } );
}

whlie(Alle routers){
-Konfogurations der router ermitteln
-DB-Abfrage 
.....
update
insert 

}

die idee mit 
for (r1,r2,r3){
}

ist richtig aber ich muss auch die Ips und die NAmen der Routers auch betrachten !!!!



Danke

Beschreibung: Ein user will sich in 3 verschideenen Router Mit verschiedenen Ip's adressen und Unterschiedlichen Namen einloggen:

Hier sind die Daten für den Routers:

Router1: (R1,20.100.10.99)
Router2:( R2,20.200.30.80)
Router3:(R3,20.200.20.100)

für jeder Router Gibt es eine Bestimmte konfiguration"config"

Jetzt will der User Mittels eine schleife die Drei routers Durchsuchen und die COnfig von Jeder Router in der Tabelle Config eintragen:

Der SQL Statement für Insert:

$query="INSERT INTO Router_Config (ID,Name,IP,Config) VALUES ('','$name',$ip,$data)";
          $sth1 = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
          $sth1->execute or die "Querry Error execute: $DBI::errstr\n";
          $sth->finish();
}

#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use Net::Telnet::Cisco;

sub get_router_conf($)
{
  my $router=shift(@_); 
  my $session = Net::Telnet::Cisco-> new (Host  => $router->{ip});
  # Konfiguration lesen
  # keine Ahnung welche Daten du haben willst
  my @out = $session->cmd('show system:/running-config');
  return join("\n",@out);
}

my $host='192.168.0.1';
my $db='router';
my $user='ToPeG';
my $pass='getpo57';
my $dbistr="DBI:mysql:$db:$host";

my @routerlist=[
    {name=>'R1', ip=>'20.100.10.99'},
    {name=>'R2', ip=>'20.200.30.80'},
    {name=>'R3', ip=>'20.200.20.100'}
];

my $dbh = DBI->connect($dbistr,$user,$pass) or die $DBI::errstr();
my $query='INSERT INTO Router_Config (ID,Name,IP,Config) VALUES (?,?,?,?)';
my $sth = $dbh->prepare($query) or die $dbh->errstr();
for my $router (@routerlist)
{
  my $config=get_router_conf($router);
  $sth->execute('', $router->{name}, $router->{ip}, $config) or die $dbh->errstr();
}
$sth->finish() or die $dbh->errstr();
$dbh->disconnect();