my $sql = "select name,address,phone,email from my table where name='m +ary'"; my $allnames= $dbh->exec_select( $sql ) or die "Couldn't execute state +ment: $dbh->errstr";; if(@$allnames) { for (my $i = 0; $i < @$allnames; $i++) { my $allname = $allnames->[$i]{ 'name' } || ''; my $alladdress = $allnames->[$i]{ 'address' } || ''; my $allphone= $allnames->[$i]{ 'phone' } || ''; my $allemail = $allnames->[$i]{ 'email' } || ''; $AoH{ alldata } = $allname." ".$alladdress." ".$all +phone ." ".$allemail; }
In reply to Fetching DB using a While loop. by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |