PERL DBI Datenbankfunktion aufrufen

[Slaughter]

Hallo,

ich möchte mit Perl eine Datenbankfunktion über ein Select-Statement mit einigen Parametern aufrufen.

Das Statement sieht per SQL z.B. so aus:
select test_function('Parameter1','Parameter2','Parameter3');

Als Rückgabe bekomme eine Tabelle mit mehrere Spalten, z.B.:
spalte1 spalte2 spalte3 spalte4
wert0_1 wert0_2 wert0_3 wert0_4
wert1_1 wert1_2 wert1_3 wert1_4
wert2_1 wert2_2 wert2_3 wert2_4
....
wertn_1 wertn_2 wertn_3 wertn_4

Aktuell habe ich noch keinen Zugriff auf die Datenbankfunktion und kann somit nicht testen. Aber kann ich die Datenbankfunktion mit Perl DBI aufrufen und über fetchrow_hashref die einzelnen Zellen einer Spalte ausgeben? z.B.:

$sth=$dbh->prepare(select test_function(?,?,?));
$sth->execute('Parameter1','Parameter2','Parameter3');
while ( my $ref = $sth->fetchrow_hashref ){
   print $ref->{spalte1} ."\n";
}

Vielen Dank im Voraus

Slaughter

[Struppi]

Aktuell habe ich noch keinen Zugriff auf die Datenbankfunktion und kann somit nicht testen. Aber kann ich die Datenbankfunktion mit Perl DBI aufrufen und über fetchrow_hashref die einzelnen Zellen einer Spalte ausgeben? z.B.:

$sth=$dbh->prepare(select test_function(?,?,?));
$sth->execute('Parameter1','Parameter2','Parameter3');
while ( my $ref = $sth->fetchrow_hashref ){
   print $ref->{spalte1} ."\n";
}

Ja.

Struppi.

[Slaughter]

Hallo Struppi,

danke für die ANtwort, das ging aber schnell. Funktioniert das auch unter Perl v5.6.1 DBI Version 1.48, Oder benötige ich eine Perl Version mindestens 5.8 und DBI xxx?

Gruß

Slaughter