PERL: Array zurückgeben

gehlhajo · February 3, 2010 at 1:40 PM

Hi

Ist das die richte Art und Weise, ein Array aus einer Funktion zurückzugeben ?

Code

package SRM::DBAccess;
use     strict;
use     DBI;


sub Execute
{
    my $SQLStatement  = $_[0];
    my $query_test;
    my @ergebnisse;

    $query_test = $connection->prepare($SQLStatement);
    $query_test->execute() or die $query_test->err_str;   

    while(my @row = $query_test->fetchrow_array()){
        push(@ergebnisse,\@row);
    }

 print "$#ergebnisse";   
 return (\@ergebnisse);
}

Display More

print "$#ergebnisse"; ergibt 2

Und wenn ja , wie gestaltet sich der der Funktionaufruf ?

Code

my @test =();
($test) = SRM::DBAccess::Execute("select * from tabelle");
print "$#test

print "$#test ergibt 0 müsste aber doch auch 2 sein.

Vielen Dank schon mal....

gehlhajo

faup · 3.2.0-40-generic

Hallo gehlhajo,

Du gibts in der Subrutine ja nur die Referenz des Arrays zurück.
In Main mußt du also über die Referenz auf das Array zugreifen, sonst siehst du nur den Eintrag der Speicherstelle in $ref, was ein einzelner Scalar ist.

Also z.B.

$test->[0] # 1.Element
@$test # ganzes Array

oder du kopierst das (zurückgegebene) Array im Aufruf :

(*test_array)= func(arg) ;

Zum Einlesen in Referenzen :

http://www.perlboard.de/perlguide/Kap19.html

Abschnitte : Referenzen aus Subroutinen zurückgeben ff.

Grüße vom Alex

hape60 · February 3, 2010 at 2:20 PM

Möglichkeit 1:

Code

sub Execute {
  ...
  $query_test = $connection->prepare($SQLStatement);
  $query_test->execute() or die $query_test->err_str;   

  while(my @row = $query_test->fetchrow_array()){
    push(@ergebnisse, [@row]);
   }

  return (@ergebnisse);
 }

Display More

Code

my @test = SRM::DBAccess::Execute("select * from tabelle");
for my $t (@test) {
  print join(';', @{$t}), "\n";
}

Möglichkeit 2:

Code

sub Execute {
  ...
  $query_test = $connection->prepare($SQLStatement);
  $query_test->execute() or die $query_test->err_str;   

  while(my @row = $query_test->fetchrow_array()){
    push(@ergebnisse, [@row]);
   }

  return (\@ergebnisse);
 }

Display More

Code

my $pTest = SRM::DBAccess::Execute("select * from tabelle");
for my $t (@{$pTest}) {
  print join(';', @{$t}), "\n";
}

gehlhajo · February 3, 2010 at 2:32 PM

Hi Faup

Quote

Original von faup

Also z.B.
$test->[0] # 1.Element

Und genau das funktioniert bei mir nicht. Da kommt bei mir als Ergebnis:
2ARRAY(0x19b23c4)ARRAY(0x19b23c4)ARRAY(0x19b23c4)

gehlhajo · February 3, 2010 at 2:34 PM

hallo hape

Quote

Original von hape60

Code

my $pTest = SRM::DBAccess::Execute("select * from tabelle");
for my $t (@{$pTest}) {
  print join(';', @{$t}), "\n";
}

Das funktioniert :
Gibt es eigentlich eine Möglichkeit, uber den Spaltenname an den Wert zu kommen ?

turboj · February 3, 2010 at 2:43 PM

Quote

ibt es eigentlich eine Möglichkeit, uber den Spaltenname an den Wert zu kommen ?

Schau Dir mal fetchrow_hashref() an.

gehlhajo · February 3, 2010 at 2:45 PM

Danke Euch allen für die Hilfe. Ich komme jetzt ein großes Stück weiter....

Participate now!