PERL: Array zurückgeben

gehlhajo · 3. Februar 2010

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);
}

Alles anzeigen

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. Februar 2010

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 · 3. Februar 2010

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);
 }

Alles anzeigen

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);
 }

Alles anzeigen

Code

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

gehlhajo · 3. Februar 2010

Hi Faup

Zitat

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 · 3. Februar 2010

hallo hape

Zitat

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 · 3. Februar 2010

Zitat

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

Schau Dir mal fetchrow_hashref() an.

gehlhajo · 3. Februar 2010

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

PERL: Array zurückgeben

Jetzt mitmachen!

Teilen

Benutzer online in diesem Thema