Use of uninitialized value in concatenation (.) or string at /home/daniel/scripts/select_db.pl line 32, <STDIN> line 1.
Use of uninitialized value in hash element at /home/daniel/scripts/select_db.pl line 33, <STDIN> line 1.

 23 # Funktion zum Ueberpruefen, ob die gewuenschte DB auch konfiguriert ist
 24 #
 25 sub check {
 26         $input=shift;
 27         if($input eq '') {
 28                 print "Es wurde keine DB zum Connecten angegeben!\n";
 29                 exit 1;
 30         } else {
 31                 my ($match) = $input =~ /\.(.+?)\./ if defined $input;
 32                 $host="www.$match.de";
 33                 if ($hash{$match}) {
 34                         connect_to_db($host,$hash{$match}[0], $hash{$match}[1], $hash{$match}[0]);
 35                 }
 36         }
 37 }
 38
 39 # Funktion zur Herstellung der DB-Verbindung
 40 #
 41 sub connect_to_db {
 42         $host=shift;
 43         $user=shift;
 44         $passwd=shift;
 45         $db=shift;
 46         system("/usr/bin/mysql --host=$host --user=$user --password=$passwd --protocol=TCP --database=$db;");
 47 }