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 }

my $hash;
my $host;

  1 #!/usr/bin/perl -w
  2
  3 use strict;
  4
  5 my $input;
  6 my ($host, $user, $passwd, $db);
  7
  8 # Array mit den Daten fuer den Hash
  9 # (user password)
 10 #
 11 my @array1=qw(user passwort);
 12 my @array2=qw(user passwort);
 13
 14 my $arrayref1=\@array1;
 15 my $arrayref2=\@array2;
 16
 17 # Hash mit den konfigurierten DB-Daten
 18 #
 19 my %hash=("domain" => $arrayref1,
 20         "domain" => $arrayref2
 21         );
 22

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.

ll at /home/daniel/scripts/select_db.pl line 32, <STDIN> line 1.
Use of uninitialized value in warn at /home/daniel/scripts/select_db.pl line 32, <STDIN> line 1.
Warning: something's wrong at /home/daniel/scripts/select_db.pl line 32, <STDIN> line 1.
Use of uninitialized value in concatenation (.) or string at /home/daniel/scripts/select_db.pl line 33, <STDIN> line 1.
Use of uninitialized value in hash element at /home/daniel/scripts/select_db.pl line 34, <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                 warn $input; warn $match;
 33                 $host="www.$match.de";
 34                 if ($hash{$match}) {
 35                         connect_to_db($host,$hash{$match}[0], $hash{$match}[1], $hash{$match}[0]);
 36                 }
 37         }
 38 }

 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                 if(defined $match){
33                     $host="www.$match.de";
34                     if ($hash{$match}) {
35                             ...
36                     }
37                  }
38                  else{
39                      warn "\$match ist undef beim Input $input\n";
40                  }
41         }
42 }