in reply to join and fetchall_arrayref()

You can use map to extract the keyword from each arrayref in the arrayref you get back from DBI: 
sub get_meta_keywords {
  my ($script,$parameter) = @_;

  $sql_stmnt = "SELECT meta_keyword
                FROM site_meta_keywords 
                WHERE script = ?
                AND parameter = ?";
  my $rows = $dbh->selectall_arrayref($sql_stmnt, undef, $script, $par
+ameter);
    
  my $meta_keywords = join(', ', map { $_->[0] } @$rows);
  return $meta_keywords;
}

[download]

Replies are listed 'Best First'.
Re^2: join and fetchall_arrayref()
by ikegami (Patriarch) on Apr 15, 2009 at 14:27 UTC 
    my $rows = $dbh->selectall_arrayref($sql_stmnt, undef, $script, $param
+eter);
return join(', ', map { $_->[0] } @$rows);

    [download]
    can be replaced with 
    my $meta_keywords = $dbh->selectcol_arrayref($sql_stmnt, undef, $scrip
+t, $parameter);
return join(', ', @$meta_keywords);

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom