Perl Mysql hash [megoldva]

Sziasztok!

Van egy Perl szkriptem amiben egy mysql lekérdezés adatait akarom egy hash-be eltárolni további feldolgozáshoz ha csak egy értéket akarok akkor egy tömbbe eltárolom így:

$query = "SELECT emberek.name FROM emberek ORDER BY emberek.name";
$sth = $dbh->prepare($query);
$sth->execute( );

while (@row = $sth->fetchrow) {
push (@nevek, $row[0]);
}

Csakhogy nekem kellene a név mellett az azonosító is ezért a lekérdezés így néz ki:

$query = "SELECT emberek.name, emberek.id FROM emberek ORDER BY emberek.name";
$sth = $dbh->prepare($query);
$sth->execute( );

Ugye így megkapom a $row[0]-ba a nevet a $row[1]-be az id-t de nem találtam olyan függvényt mint a push csak hash-re. Tud valaki ilyen függvényt? Vagy más módszer is érdekel

Hozzászólások

Emlékezetből valami ilyesmi kéne neked:


$sth->bind_columns(\$key, \$value); 
while($sth->fetchrow_arrayref) {
  $hash{ $key } = $value;
}