I'm helping someone retrieve some info from a MySQL db and I'm having trouble sending multiple select statements with Perl. Here's a portion of the code:
use SQL::SplitStatement; my $query_4 = "CREATE TEMPORARY TABLE `temp_ip` AS (SELECT `ip` FROM `ip_addresses` " .$daily. " AND TRIM(`referrer`) LIKE '' GROUP BY `ip` HAVING COUNT(*) > 1); SELECT `ip`, `page`, `url`, `time_stamp` FROM `ip_addresses` " .$daily. "AND TRIM(`referrer`) LIKE '' AND `ip` IN (SELECT `ip` FROM `temp_ip`)"; my $sql_splitter = SQL::SplitStatement->new( keep_terminators => 1, keep_extra_spaces => 1, keep_comments => 0, keep_empty_statements => 1 ); my @statements = $sql_splitter->split($query_4); my $sql_string = join ' ', @statements; my $sth_4 = $dbh->prepare($sql_string); $sth_4->execute(); I believe what's throwing a wrench in it is the ";" separating the 2 select statements. That's why I'm using SQL::SplitStatement, but that doesn't seem to help, so I'm sure I'm doing something wrong. The SQL works fine, so my problem must be with my Perl code. I've read everything I can get my hands on but no luck. Any help would be greatly appreciated. Thanks, Frank http://www.surfshopcart.com/ -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/