求教：perl調(diào)用復(fù)雜SQL語句

Tonyish

SQL語句如下：
select data0010.cust_code,data0010.customer_name,data0050.customer_part_number,
data0059.customer_part_desc,data0050.cp_rev,data0278.parameter_desc,data0494.parameter_value,DATA0050.RKEY AS RKEY50
from data0010,data0038,data0034,data0278,data0025,data0050,data0059,data0506 left outer join
data0494 on (data0494.source_ptr=data0506.rkey)
where data0506.parameter_ptr=data0278.rkey
and data0506.ttype=3
and data0494.route_step_ptr=data0038.rkey
and data0034.rkey=data0038.dept_ptr
and data0038.source_ptr=data0025.rkey
and data0025.ancestor_ptr=data0050.rkey
and Data0059.CUST_Part_PTR=Data0050.RKEY
and data0059.customer_ptr=data0010.rkey
and (data0050.CUSTOMER_PART_NUMBER+data0050.cp_rev) = 'xxx'
and data0278.PARAMETER_NAME='xxxx'
order by cust_code

如上語句怎么代入到perl的代碼中呢？用

my $sql = qq(select data0010.cust_code,data0010.customer_name,data0050.customer_part_number,
data0059.customer_part_desc,data0050.cp_rev,data0278.parameter_desc,data0494.parameter_value,DATA0050.RKEY AS RKEY50
from data0010,data0038,data0034,data0278,data0025,data0050,data0059,data0506 left outer join
data0494 on (data0494.source_ptr=data0506.rkey)
where data0506.parameter_ptr=data0278.rkey
and data0506.ttype=3
and data0494.route_step_ptr=data0038.rkey
and data0034.rkey=data0038.dept_ptr
and data0038.source_ptr=data0025.rkey
and data0025.ancestor_ptr=data0050.rkey
and Data0059.CUST_Part_PTR=Data0050.RKEY
and data0059.customer_ptr=data0010.rkey
and (data0050.CUSTOMER_PART_NUMBER+data0050.cp_rev) = 'xxx'
and data0278.PARAMETER_NAME='xxxx'
order by cust_code
);
my $dbconn = $DBH->prepare($sql);這樣得不到想要的結(jié)果。

billcool

execute
fetch

蘭花仙子

你只prepare了沒有execute?

看了下你的SQL結(jié)構(gòu)，如果是我的話就使用DBIx::Class

Tonyish

回復(fù) 3# 蘭花仙子
當(dāng)然有，我的問題不在這里，我是問那一串sql語句用perl怎么寫？
為防止大家誤解我補(bǔ)上幾句吧��！

my $dbconn = $DBH->prepare($sql);
   $dbconn->execute() or die $DBI::errstr;
if ( my @row_ary = $dbconn->fetchrow_array ) {            
    print "@row_ary\n";
}
else {
    print "script run to here\n";
   

Tonyish

蘭花仙子
DBIx::Class這個(gè)模塊沒接觸過

蘭花仙子

qq()

這對括號與你SQL里的括號分歧了吧。