Connecting Tech Pros Worldwide Help | Site Map

Help! MySQL LEFT JOIN probelm in Perl

Newbie
 
Join Date: Feb 2009
Posts: 2
#1: Feb 18 '09
Hi All

I have a sticky problem! Its a LEFT JOIN sql statement which works fine in MySQL but not when called in Perl. Any ideas?

I have 2 tables: campaigns & companies. I'm trying to join them so that all columns of both tables are returned when 2 fields match across the tables and some additional tests in the first table. It works fine in MySQL but returns an empty set when called in Perl. Is there some limitation in Perl or a better way to format the command for it to work from Perl?

Here is the SQL statement which works fine when tried directly inside MySQL:

Expand|Select|Wrap|Line Numbers
  1. SELECT * FROM campaigns LEFT JOIN companies ON campaigns.DestinationURL=companies.Website WHERE (campaigns.BudgetAvailable>0 AND campaigns.SearchWebs LIKE "%google%") ORDER BY campaigns.MaxPayPerClick DESC LIMIT 6
And here is the Perl code:

Expand|Select|Wrap|Line Numbers
  1. my $query = qq{ SELECT * FROM campaigns LEFT JOIN companies ON campaigns.DestinationURL=companies.Website WHERE (campaigns.BudgetAvailable>0 AND campaigns.SearchWebs LIKE "%$website%") ORDER BY campaigns.MaxPayPerClick DESC LIMIT 6 };
where $website has the variable passed into it.

Please help me if you can!!!

Thanks.
KevinADC's Avatar
Expert
 
Join Date: Jan 2007
Location: Southern California USA
Posts: 4,091
#2: Feb 18 '09

re: Help! MySQL LEFT JOIN probelm in Perl


just guessing, try escaping the % symbols in the perl code in the query:

\%$website\%
Icecrack's Avatar
Expert
 
Join Date: Sep 2008
Location: Sydney, Australia
Posts: 173
#3: Feb 19 '09

re: Help! MySQL LEFT JOIN probelm in Perl


try:
Expand|Select|Wrap|Line Numbers
  1. my $query =("SELECT * FROM campaigns LEFT JOIN companies ON campaigns.DestinationURL=companies.Website WHERE campaigns.BudgetAvailable>0 AND campaigns.SearchWebs LIKE '%$website%' ORDER BY campaigns.MaxPayPerClick DESC LIMIT 6 ");
  2.  
Newbie
 
Join Date: Feb 2009
Posts: 5
#4: Feb 26 '09

re: Help! MySQL LEFT JOIN probelm in Perl


Hi,

What is the error your getting

with Regards
sivashanmugam
Reply

Tags
left join, mysql, perl