Help! MySQL LEFT JOIN probelm in Perl

[Scotsman]

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:

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:

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]

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

\%$website\%

[Icecrack]

try:

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 ");
 

[sivashanmugam]

Hi,

What is the error your getting

with Regards
sivashanmugam