Kann Hash nicht übergeben - #111103 (Allgemeines zu Perl)

roooot

2008-06-16 23:27

User since
2008-03-03
276 Artikel
BenutzerIn
[default_avatar]

Hallo, mal wieder:

Ich würde gerne folgendes übergeben. Mit der Arrayref klappt alles nur der Hash irgendwie nicht. Ich weiß auch nicht wie

Code (perl): (dl )

sub foo  {

    #........

    my %sql_info = {
        rows => $query->rows(),
    };

    return (\@sql_output, \%sql_info);
}

es soll dann so empfangen werden:

Code (perl): (dl )

sub bar {
     my (@sql_output, %sql_info) = foo();

     return  (\@sql_output, \%sql_info);
}

Code (perl): (dl )

1
2
3

my ($sql_output_ref,$sql_info_ref) = bar();
my @sql_output = @{ $sql_output_ref };
my %sql_info = %{ $sql_info_ref }

Am Schluss ist es wichtig, dass ich einen echten Hash habe, nicht nur eine Referenz. Aber so wie ich es habe gehts leider nicht :(
Ich bin grad etwas am verzweifeln.

Viele Grüße :)