高分求救.PERL简单的文件及数据库操作

HF.SKY000

sub get_ci_sz{
        my @ci_sz;
        my @ne_id_sz;
        my $sql_sz="select count(*) a,c.ci from unicom:hb_cm_cell a ,unicom:ne_bsc b ,unicom:ne_cell c where a.type1=b.china_name and c.city_id=b.city_id and c.ci=a.ci   and b.city_id='114' and c.n_confirm<>1 group by 2 having count(*)>1";
        $sth=$dbh->prepare($sql_sz);
        $sth->execute();
        while(my $line=$sth->fetchrow_array){
                @ci_sz=$line;
                my $s="select ne_id from ne_cell where n_confirm<>1 and ci=@ci_sz and city_id='114' order by 1";
                $sth=$dbh->prepare($s);
                $sth->execute();
                while(my @row=$sth->fetchrow_array){
                print $row[0],"\n";
                }
        }
        }

描述:本想将第一个SQL查询结果@ci_sz作为第二个SQL查询的条件.但是从打印的结果来看.引入的参数只是第一个SQL的最后一个值.也就是说:只是@CI_SZ的最后一个数值.数组中的其它数值并没有引入到第二个查询SQL中,请高手帮忙.

cobrawgl

简单的调试一下嘛，你自己试试

dl0622

while(my @line=$sth->fetchrow_array){
                my $s="select ne_id from ne_cell where n_confirm<>1 and ci=$line[1] and city_id='114' order by 1";
                $sth=$dbh->prepare($s);
                $sth->execute();
                while(my @row=$sth->fetchrow_array){
                print $row[0],"\n";
                }

[ 本帖最后由 dl0622 于 2008-11-29 20:50 编辑 ]

machine

@ci_sz=$line; 有毛病

wxlfh

应该是这样，觉得

push @ci_sz, $line;

HF.SKY000

效果是一样的

HF.SKY000

还是一样的,

dl0622

你要搞清楚，$sth->execute();执行后得到数组保存的是select语句中select的那几个数值，你下面用到的应该是这两个数值count(*) a,c.ci 的c.ci吧。

你的第一条sql语句select出来的结果，应该有很多行吧？因为最后得到的数组只保存一行，那么就是保存最后一行了（最后一行最迟select出来嘛）

你若想得到多行中每行的c.ci值，在第一个sql语句中加入能唯一确定该行值的字段，该字段赋一个值$x，然后在外面加一个循环，例如while($x<100)，每通过一个循环得到一个值后就把它push进一个数组，然后供下面第二个sql语句调用。

不知道是否看得明白？

[ 本帖最后由 dl0622 于 2008-11-30 15:59 编辑 ]

dl0622

即

1. 
   
2. sub get_ci_sz{
   
3.         my @ci_sz;
   
4.         my @ne_id_sz;
   
5.         for($x=1;$x<100;$x++){
   
6.                 my $sql_sz="select count(*) a,c.ci from unicom:hb_cm_cell a ,uni
   
7. com:ne_bsc b ,unicom:ne_cell c where c.ci=$x and a.type1=b.china_name and c.city_id=b.city_i
   
8. d and c.ci=a.ci   and b.city_id='114' and c.n_confirm<>1 group by 2 having count
   
9. (*)>1";
   
10.                 $sth=$dbh->prepare($sql_sz);
    
11.                 $sth->execute();
    
12.                 @line=$sth->fetchrow_array;
    
13.                 push @a,$line[1];
    
14.         }
    
15.         foreach $t (@a){
    
16.                 my $s="select ne_id from ne_cell where n_confirm<>1 and ci=$t an
    
17. d city_id='114' order by 1";
    
18.                 $sth=$dbh->prepare($s);
    
19.                 $sth->execute();
    
20.                 while(my @row=$sth->fetchrow_array){
    
21.                         print $row[0],"\n";
    
22.                 }
    
23.         }
    
24. }
    
25. 
    

复制代码

[ 本帖最后由 dl0622 于 2008-11-30 16:13 编辑 ]

ynchnluiti

原帖由 HF.SKY000 于 2008-11-29 12:11 发表
sub get_ci_sz{
        my @ci_sz;
        my @ne_id_sz;
        my $sql_sz="select count(*) a,c.ci from unicom:hb_cm_cell a ,unicom:ne_bsc b ,unicom:ne_cell c where a.type1=b.china_name and c.city_id=b.city_id and ...

while(my $line=$sth->fetchrow_array)  用数组
perldoc DBI
fetchrow_array

If called in a scalar context for a statement handle that has more than one column, it is undefined whether the driver will return the value of the first column or the last. So don't do that

另外

$sth=$dbh->prepare($sql_sz);
        $sth->execute();  #select 1
        while(my $line=$sth->fetchrow_array){ #最好用@line
                @ci_sz=$line;
                my $s="select ne_id from ne_cell where n_confirm<>1 and ci=@ci_sz and city_id='114' order by 1";
                $sth=$dbh->prepare($s);
                $sth->execute();   #执行后，select 1的结果被覆盖了
                while(my @row=$sth->fetchrow_array){
                print $row[0],"\n";
                }
        }