求教：循环中控制条件

smilesky

要求：
表s_service中字段：name,tbl_name,flag
其中字段tbl_name是表的名称
库中tbl_name有多个表如：a,b,c.. 他们的结构是一样的
从a,b,c中找出其中是否有字段dest= 121，如果有就记录这个表的名字name

我是这样写的：
my @record;
$query = "SELECT name,tbl_name,flag FROM s_service";
$result = $db->;query($query);
while(%rows = $result->;fetchhash)
{
$id = $rows{id};       
$name = $rows{name};
$tbl_name = $rows{tbl_name};
$flag = $rows{flag};
$query1 = "SELECT * FROM  $tbl_name where dest =$dest";
$result1 = $db->;query($query1);       
if ($result1->;numrows != 0)
{
my $record = $flag."-".$name."\n";
push (@record,$record);
}                               
}

可是，程序进入了死循环，为什么？
谢谢！

apile

不知道你從那兒查到的$db->;query與$db->;fetchhash...??
我查Programming the Perl DBI這本書沒看到說..
給你一個簡單的例子..
$db= DBI->;connect(xxx)|| die "Can't connect to DB";
$sth = $db->;prepare(qq{ Select... }) || die "Can't prepare $DBI::errstr";
$sth->;exeute() || die "Can't execute $DBI::errstr";
while($a = $sth->;fetchrow_hashref()){
  $a->;{name} ===>;name
  $a->;{flag} ===>;flag
}

通常我都用
while(@aa = $sth->;fetchrow_array){
  $a[0] ==>; name
  $a[1] ==>; tbl_name
  $a[2] ==>; flag
}

試試看吧...

smilesky

确实是这个问题，谢谢！

原帖由 "apile" 发表：
; flag
}

試試看吧...