Schleife bauen
am 28.02.2007 10:03:18 von MOMOHallo ,
ich arbeite an 3 routers die Folgende Daten zum Einlogen Haben :
Router (Name , Ip , Pwd)
Router1 (r1,20.200.20.80,router)
Router2(r2,20.200.20.90,Router)
Router3(r3,10.1000.10.88,router)
Dazu habe ich den Folgenden Skript der Mir die Configuration eines
Routers in die Datenbank einträgt.
Nun ich will eine schleife bauen die mir die 3 router durchsucht und
für jeden die Configuration in die Datenbank einträgt!!
############################################################ ###############=
#####
#!/usr/bin/perl -w
#DatenbankAbfragen
use strict;
use warnings;
use DBI;
use Net::Telnet::Cisco;
our $dbh;
my $session =3D Net::Telnet::Cisco-> new (Host =3D> '10.200.2.105');
sub get Router{
my $name=3Dshift;
my $ip=3Dshift;
my $user=3Dshift;
my $pwd=3Dshift;
my $data;
my ($query,$sth,$execu,$newdata,$ds,$summe);
$query=3D"INSERT INTO Router_Config (ID,Name,IP,Config) VALUES
('','$name',$ip,$data)";
$sth =3D $dbh->prepare($query) or die "Querry Error prepare:
$DBI::errstr\n";
$sth->execute or die "Querry Error execute: $DBI::errstr\n";
$sth->finish();
}
}
##########################
Danke im voraus