in reply to SQL queries using dynamic array

Here is one way (granted it is not tested): 
my @values = qw/Otago Auckland Nortland/;

#Quote Values to be safe
my $values = 
  join("," 
       ,map { $dbh->quote($_) } @values 
      );

my $statement = "
  SELECT c_email, c_first, c_last 
    FROM tblClient, tblGroup, tblRegion 
   WHERE  tblGroup.g_name = 'motel' 
     AND tblRegion.r_name IN ( $values )";

my $sth = $dbh->prepare($statement);
$sth->execute();

[download]

HTH

-enlil

Replies are listed 'Best First'.
Re^2: SQL queries using dynamic array
by jhourcle (Prior) on Aug 04, 2005 at 01:40 UTC

    For those who like bind variables:

    my $placeholders = join ( ',', ('?') x @values );
my $statement = <<"EOF";
  SELECT c_email, c_first, c_last 
    FROM tblClient, tblGroup, tblRegion 
   WHERE  tblGroup.g_name = ?
     AND tblRegion.r_name IN ( $placeholders )
EOF
my $sth = $dbh->prepare($statement);
$sth->execute('motel', @values);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom