perl mysql

[Hummel]

ich versuche grade daten aus der datenbank zu lesen

my ($aref) = $dbh->selectall_arrayref("SELECT nick,name FROM mit") or die $dbh->errstr();

sub irgend was
{
foreach my $row_aref (@$aref)
{
print FILE1 "datenbank teil", join("|",@$row_aref),"\n";
}

return \@$aref; #habs gefunden ist so richtig lach eben ist es mir eingefallen
}

dies klapt super blos ich möchte das der return wert das array enthält
so zb

foreach (@users)
{
$_ =~ s/[\n\r]//g;
}

return \@users;
}

[|Coding]

Das ist kein PHP & MySQL Thema, daher wird es in "Off Topic" verschoben.

[Hummel]

wuste nicht wo ichs rein machen solte



die bedingung klapt doch nicht richtig

in dem rückgabe wert

return \@users; steht es so dan nick|benutzer


so mus ich es aus der datenbank holen was ja klapt

{
print FILE1 "datenbank teil", join("|",@$row_aref),"\n";
}


das print ist nur zur kontrolle was ich lesen tu
join("|",@$row_aref) so kommt nick|name raus

aber wie mach ich das es ein array wird ?

[|Coding]

Hast Du es mal so versucht?

my @result; 

foreach my $row_aref (@$aref) 
{
   push join("|", @$row_aref), @result;
}

[Hummel]

dieser fehler kommt

Type of arg 1 to push must be array (not join or string) at /srv/www/vhosts/web0/cgi-bin/Plugins/DataModules/meinmodul.pm line 147, near "@result;



oder kan das auch an der datenbank liegen das auslesen

gibt ja auch wesendlich mehr möglichkeiten da