Variable nach Schleife weiterbenutzen (PERL)

Unregistriert

Hi,

ich habe folgendes PERL-Problem, ich möchte in einer IF Anweisung einen bestimmten Wert auslesen, und diesen nach Beenden der IF Anweisung noch im Code weiterbenutzen.

Code

if (Bedingung)
       {
        CODE


        $Z =~ m/^\((.*)\)$/;
        $ZEICHEN = $1;
       }


Bla
Bla
Bla


Ganz viel Code


$sql_string = ("CREATE TABLE TABELLE1 (AAA char($ZEICHEN), BBB char($ZEICHEN))");

Alles anzeigen

In meinem SQL_String brauche ich nun den Wert den ich in der IF Anweisung ausgelesen habe, ich bekomme aber immer diese Warnmeldung:

Use of uninitialized value $ZEICHEN in concatenation (.) or string at foo.pl line 60

Kann mir vielleicht jemand erklären wie ich solch eine Variable auch außerhalb der IF Anweisung weiterbenutzen kann??? Ich beschäftige mich noch nicht lange mit Perl.

Dankeschön

Dodo

bist du dir sicher, dass die bedingung greift?
mach dir da mal ne ausgabe rein

denn eigentlich sollte es danach verfügbar sein

Unregistriert

Ja das funktioniert alles, ich habe den Fehler auch behoben bekommen. Die Fehlfunktion lag nicht daran das die Parameter nicht übergeben wurden, denn das wurden sie problemlos.

Das Problem liegt (immernoch) darin, das ich diese Werte aus einer Datei auslese, und mein Hauptprogramm die betreffenden Zeilen aus der Datei -> Zeilenweise <- an meine Subroutine schickt!

So durchläuft meine Sub Zeile für Zeile die Datei, dann findet sie etwas schreibt es in den String, doch sobald mein Hauptprogramm die nächste Zeile übergibt, wird der alte Wert gelöscht und durch einen neuen Überschrieben, der, wenn die Bedingung false ist, natürlich leer ist.

Deswegen bekomme ich generell leere Strings an mein SQL Statement geschickt, anstelle von gefüllten Strings.

Hier vielleicht sieht man es anhand des Codes:

Datei:

Code

* $$ JOB JNM=KALAS1,CLASS=0,DISP=D
* $$ LST CLASS=A,DISP=D,DEST=(,UUSER)
// JOB KALAS1 UTFF-MAIN-FILES
// EXEC IDCAMS
   DEFINE CLUSTER                        -
          (NAME       (AKL.VSAM.UTFFL1)  -
           VOLUMES    (XXXXXX)           -
           RECORDS    (850)              -
           RECORDSIZE (4096 4096)        -
           CISZ       (4096)             -
           SHR        (9 9)              -
           NUMBERED)                     -
   CATALOG  (VSEKL.USER.CATALOG)
/*
/&
* $$ EOJ

Alles anzeigen

Hauptprogramm:

Code

use IDCAMS;


use strict;


my $BEFEHL = '';
my $REST = '';
my $exec = '';
my $buffer = '';
my $dlbl = '';
my $job = '';
my $Programm = '';
my $cmd = '';
my $BINDESTRICH = '';


open(DB, "<$ARGV[0]") || die "Kann Datei nicht öffnen!";
while(<DB>)
          {
          $buffer = $_;


              if(index($buffer,"// JOB ") != -1)
              {
               $job = $buffer;
               $job =~ m/^(.*?)JOB (.*)$/;
               print " \n";
               print "---------------------------------------\n";
               print "JOBNAME => $2\n";
              }
              if(index($buffer,"// DLBL ") != -1)
              {
               $dlbl = $buffer;
               $dlbl =~ m/^(.*?)DLBL (.*),(.*),,(.*)$/;
               print "DLBL => $2\n";
              }
              if(index($buffer,"// EXEC ") != -1)
              {
               $exec = $buffer;
               $exec =~ m/^(.*?)EXEC ([A-Z]*),*(.*)$/;
               $Programm = $2;
               print "EXEC => $Programm\n";
              }


              if((index($buffer,"/") == -1)&&(index($buffer,"*") == -1))
              {
               $cmd = $buffer;
               $cmd =~ m/^.*( - ).*$/;
               $BINDESTRICH = $1;


               if(defined $BINDESTRICH)
               {
               $cmd = $buffer;
               $cmd =~ m/^[^A-Z]*([A-Z]*)[^A-Z0-9]* (.*) +- .*$/;
                             #print "Buffer=$cmd\n#$1#$2#\n";
               $BEFEHL = $1;
               $REST = $2;


               $REST =~ s/\s+$//g;
               }


               else
               {
               $cmd = $buffer;
               $cmd =~ m/^[^A-Z]*([A-Z]*)[^A-Z0-9]* (.*) .*$/;
                             #print "Buffer=$cmd\n#$1#$2#\n";
               $BEFEHL = $1;
               $REST = $2;


               $REST =~ s/\s+$//g;
               }


               if(defined $BINDESTRICH == 0 )
               {


                if($Programm eq "IDCAMS")
                {


                 IDCAMS($BEFEHL,$REST);
                }


               }


              }


          }
close(DB);

Alles anzeigen

Und letzendlich meine Funktion:

Code

use Win32::ODBC;
use strict;


sub IDCAMS
{
my ($TabNAME, $tNAME, $ZEILEN, $ZEIL, $ZEICHEN, $ZEIC, $sql_string, $sql_string2, $db, %Daten);
my $BEFEHL = *_;
my $REST = *_;


    $BEFEHL = shift;
    $REST = shift;


     %Daten = ($BEFEHL, $REST);


       if ($Daten{"NAME"})
       {
        $tNAME = $Daten{"NAME"};


        $tNAME =~ m/^\((.*?)\.(.*)\.(.*)\)$/;
        $TabNAME = $3;
       }


       if ($Daten{"RECORDS"})
       {
        $ZEIL = $Daten{"RECORDS"};


        $ZEIL =~ m/^\((.*)\)$/;
        $ZEILEN = $1;
        $ZEILEN++;
       }


       if ($Daten{"RECORDSIZE"})
       {
        $ZEIC = $Daten{"RECORDSIZE"};


        $ZEIC =~ m/^\((.*) {1}(.*)\)$/;
        $ZEICHEN = $1;
       }


         if($Daten{"DEFINE"})
         {


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


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


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


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


                 print "\nTablename: ",$TabNAME,"\n";
                 print "Create Table with: ",$ZEILEN," rows\n";
                 print "Row filled with: ",$ZEICHEN," spaces\n";
                 print "---------------------------------------";
            }


         }
}
1;

Alles anzeigen

So und wie du siehst, die Datei wird zeilenweise eingelesen und jede einzelne Zeile wird an die Sub übergeben, die läuft einmal komplett durch bis sie die nächste Zeile findet, bis die Datei endet. Und deswegen bekomme ich nur leere Strings an das SQL Statement gesendet.

Vielleicht hast du ja eine Idee, wenn ja wäre ich sehr dankbar.

Liebe Grüße

Variable nach Schleife weiterbenutzen (PERL)

Tags

Benutzer online in diesem Thema