Nutzung von $Variable nach IF Anweisung

[JulianB]

Okay, jetzt bin ich endgültig verwirrt.

Ich poste einmal den Teil vom Code um den es gerade geht (Achtung wie gesagt ich bin Anfänger):

___________CODE___________

%Daten = ($BEFEHL, $REST);

my $TabNAME = '';

if ($Daten{"NAME"})
 {
  $tNAME = $Daten{"NAME"};
  $tNAME =~ m/^((.*?).(.*).(.*))$/;
  $TabNAME = $3;
  print "\nTablename: ",$TabNAME,"\n";
 }

my $ZEILEN = '';

if ($Daten{"RECORDS"})
  {
   $ZEIL = $Daten{"RECORDS"};
   $ZEIL =~ m/^((.*))$/;
   $ZEILEN = $1;
   print "Create Table with: ",$ZEILEN," rows\n";
  }

my $ZEICHEN = '';

if ($Daten{"RECORDSIZE"})
   {
    $ZEIC = $Daten{"RECORDSIZE"};
    $ZEIC =~ m/^((.*) {1}(.*))$/;
    $ZEICHEN = $1;
    print "Row filled with: ",$ZEICHEN," spaces\n";
   }

if($Daten{"DEFINE"})
    {

if($Daten{"DEFINE"} eq 'CLUSTER')
     {

if(!($db = new Win32::ODBC("DSN=SNAME;UID=USER;PWD=PASS;")))
      {
       print "Fehler beim Verbinden mit $DSN\n";
       print "Fehler: " . Win32::ODBC::Error() . "\n";
       exit;
      }

$sql_string = ("CREATE TABLE $TabNAME (Nr varchar(20), Zeichen char($ZEICHEN))");
$db->Sql($sql_string);

for ($i=0;$i<$ZEILEN;$i++)
{
$sql_string2 = ("INSERT INTO $TabNAME (Nr) VALUES ('$i')");
$db->Sql($sql_string2);
}
}

___________ENDE___________

So, habe es geändert, funktioniert aber leider immer noch nicht....

Ich lese aus dem Hash die Daten aus weiße sie den Variablen $ZEICHEN, $ZEILE und $TabNAME zu und möchte sie unten in der SQL-Anweisung wieder benutzen, sprich sie sollen die Werte übergeben.

Vielen Dank für eure Mühen,

Julian