push (@Datarow,$DB[$i]{$role}); kein Wert

[Cano2]

Hi!
Erstmal Danke für die Antworten auf meine letzte Frage.
Die Funktion writeDB soll eine vorher eingelesene DB ausgeben.
Mit "push (@Datarow,$DB[$i]{$role});" sollen die Werte wieder
Zeilenweise zusammengefügt werden. Wenn ich "$DB[$i]{$role}" einzeln ausgebe haben diese auch die entsprechenden Werte. @Datarow hat aber nur leere Elemente.
Ich hoffe es ist klar was ich meine.
Ciao, Cano2.

Die Ausgabe:

:
:

Source:
--------------------------------------
sub writeDB{
my ($ref,$file)=@_;
print "Content-type: text/plain\n\n";
my @DB=@{$ref};
my @Rawdata;
for $i ( 0 .. $#DB ) {
     @Datarow;
     for $role ( keys %{$DB[$i]} ) {
         push (@Datarow,$DB[$i]{$role});
     }
     push (@Rawdata,join(@Datarow,":"));
}
for (@Rawdata) {print "$_\n";}
}
---------------------------------------

[Klaus Mock]

Hallo,

push (@Rawdata,join(@Datarow,":"));

perldoc -f join ;-)

Grüße
  Klaus