Hi, I am not getting any output using the below code.

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
--
connecting to database (okay with this, it works)

--
my (@centers, $stmt, $sth, $row);
$stmt = qq { SELECT group_center FROM places};
$sth = $dbh->prepare($stmt);
$sth->execute();

#here is the problem area
while ($row = $sth->fetchrow_array()) {
push @centers, $_;
}
foreach (@centers) {
print "$_\n";
}
I get a blank line for each line, where I would expect to see names of
groups from my query. ???

Thanks



 



Ramon Hildreth
-------------------------------------------------------------------
[ www.subudusa.org ] [ www.subudseattle.org ]
                [ www.ramonred.com ]

Reply via email to