Datenbankabfrage mit ISQL im Perl

[Ralf Hoppe]

Hallo Forumer,

vielleicht arbeite ich etwas umständlich, und die Frage wird bestimmt bei einigen den Magen umdrehen. Da die Sache aber für das Intranet ist, geht es nur um die Funktionalität.

Es werden in einem Formular Werte übergeben, diese werden im Perl-Script eingelesen. Dort habe ich eine ISQL Anweisung, welche mit 2 Werten arbeiten soll. Dazu folgende Anweisung:

$bm = $Formular[9];
$kw = $Formular[7];

open(egal, " isql -c "uid=dba;pwd=sql;dbn=kfz;dbf=../database/kfz.db;DBS=-q -b" call hpfrage ($bm, $kw);");
close(egal);

Leider werden die Variablen $bm und $kw im isql nicht interpretiert. Dort steht dann folgende Anweisung:

call hpfrage (, );

Jetzt weiss ich leider nicht, ob es ein Problem vom Perl oder vom ISQL, oder eher von mir ist ;-)

Wäre nett, wenn jemand Stellung dazu nehmen könnte.

Danke im voraus

Ralf Hoppe

[Tom]

Hallo Ralf

Versuch mal den String mit dem Concatenate-Operator "." zusammenzubauen.
Dies am besten ausserhalb von open(), damit Du mit print Dir den String anzeigen lassen kannst.

$command = " isql -c "uid=dba;pwd=sql;dbn=kfz;dbf=../database/kfz.db;DBS=-q -b" call hpfrage (" . $bm . ", " . $kw . ");";
                                                                                                      ^     ^      ^     ^    
   print $command;
   open(egal, $command);

Zweiter Problempunkt ist der open-Befehl.
open() ist zum Öffnen von Dateien auf dem Filesystem gedacht.
Falls Du jedoch einen Systembefehl oder eine Exe ausführen willst, solltest Du den system-Befehl verwenden.

<cite src="man perlfunc" version="Perl 5.005, ActiveState">
system LIST
system PROGRAM LIST

Does exactly the same thing as ``exec LIST'', except that a fork is done first, and the parent process waits for the child process to complete.
     Note that argument processing varies depending on the number of arguments. If there is more than one argument in LIST, or if LIST is an array
     with more than one value, starts the program given by the first element of the list with arguments given by the rest of the list. If there is only
     one scalar argument, the argument is checked for shell metacharacters, and if there are any, the entire argument is passed to the system's
     command shell for parsing (this is /bin/sh -c on Unix platforms, but varies on other platforms). If there are no shell metacharacters in the
     argument, it is split into words and passed directly to execvp(), which is more efficient.

The return value is the exit status of the program as returned by the wait() call. To get the actual exit value divide by 256. See also exec. This
     is NOT what you want to use to capture the output from a command, for that you should use merely backticks or qx//, as described in perlop.

Like exec(), system() allows you to lie to a program about its name if you use the ``system PROGRAM LIST'' syntax. Again, see exec.

Because system() and backticks block SIGINT and SIGQUIT, killing the program they're running doesn't actually interrupt your program.

@args = ("command", "arg1", "arg2");
         system(@args) == 0
              or die "system @args failed: $?"

You can check all the failure possibilities by inspecting $? like this:

$exit_value  = $? >> 8;
         $signal_num  = $? & 127;
         $dumped_core = $? & 128;

When the arguments get executed via the system shell, results and return codes will be subject to its quirks and capabilities. See perlop and
     exec for details.
</cite>

Ich hoffe, das hilft ein wenig.

Grüsse
Tom

[Ralf Hoppe]

Hallo Tom,

allerbesten Dank für deine Hilfe,

ich hab es nach 7 Stunden grübeln hinbekommen!!!!
Wie??....   diese Frage stell ich mir auch gerade!! ;-)

bis denne

Ralf

[Tom]

Hallo Ralf,

ich habe nochmals Deinen Code angeschaut, das Quoting im open-Befehl sollte korrekt sein.

open(egal, " isql -c "uid=dba;pwd=sql;dbn=kfz;dbf=../database/kfz.db;DBS=-q -b" call hpfrage ($bm, $kw);");

Dein Ergebnis

call hpfrage (, );

deutet auf nicht initialisierte Array-Felder hin.
Hast Du geprüft, dass der Array @Formular _und_ die Array-Einträge 7 und 9 tatsächlich definirt sind und gültige Werte enthalten?
Gib mal
   print $Formular[9];
   print $Formular[7];
in Dein Skript ein und prüfe das Ergebnis.

Grüsse
Tom