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. ???
#!/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. ???