大虾求救。。。谢谢 perl

nihaogcd

my $sql = qq{
                select distinct region_id,region_name from region_city
                where province_id = $pi and deleted=0 order by region_id
                };
        my $sth_temp_1;

        if(!($sth_temp_1 = $dbh->;prepare($sql)))
        {
                writeToLog("Err: prepare error!\nSQL Statementsql\nErr Info:".$DBI::errstr);
                close(LOGF);
                exit 0;
        }
        if(!($rc = $sth_temp_1->;execute()))
        {
                writeToLog("Err: excute error!\nSQL Statementsql\nErr Info:".$DBI::errstr);
                close(LOGF);
                exit 0;       
        }
        my @cols_cityname;
        my @stash;
        while (@cols_cityname = $sth_temp_1->;fetchrow_array()){
                push @stash,$cols_cityname[1];
        }

下面这个在SQL中：\n
select
decode(a.dest_city_name,a.dest_city_name,$cols_cityname[a.dest_city_name+1])  dest_city_name
from a_trunkgroup
就过不去\n
select
decode(a.dest_city_name,a.dest_city_name,$stash[1]) dest_city_name
from a_trunkgroup
可以执行
select
decode(a.dest_city_name,a.dest_city_name,$stash[a.dest_city_name+1]) dest_city_name
from a_trunkgroup
还是不行  
为什么在decode里不能用啊
可以给个方便点的例子吗 偶不行了 谢谢

apile

1. 
   
2. select
   
3. decode(a.dest_city_name,a.dest_city_name,$stash[1]) dest_city_name
   
4. from a_trunkgroup
   
5. 可以执行
   
6. select
   
7. decode(a.dest_city_name,a.dest_city_name,$stash[a.dest_city_name+1]) dest_city_name
   
8. from a_trunkgroup
   
9. 还是不行
   

复制代码

$stash[1] 是perl的array嗎？
$stash[a.dest_city_name+1] 這個也是perl的array取值嗎？
如果是的話..一個是可行的..但是第二個...
perl沒有那麼聰明....你得多去看看SQL的語法...才行..
a.dest_city_name+1 這個對perl的array的index來說..沒有意義...