Perl AnyEvent::DBI::MySQL请教返回结果处理

墨迹哥

以下是查询某个状态，然后希望可以得到一个status返回值。
但是怎么弄都是空。。。

1. # 查询状态
   
2. sub select_once_status{
   
3.         my ($method,$dbh)=@_;
   
4.         my $cvs=AnyEvent->condvar;
   
5.         my $type;
   
6.         $dbh->do("set names utf8");
   
7.         $dbh->selectrow_hashref(
   
8.                 "select status from _attacks where id=".$method,
   
9.                 sub{
   
10.                         my ($ary_ref) =@_;
    
11.                         $type=$ary_ref;
    
12.                         $cvs->send;
    
13.                 }
    
14.         );
    
15.         $cvs->recv;
    
16.         return $type;
    
17. }
    
18. 
    
19. # 查询出指定ID的状态
    
20. $task_id=select_once_status($h->{$key}->{'id'},$dbh);
    
21. print Dumper \$task_id;
    
22. 
    

复制代码

1. $VAR1 = \{
   
2.             'status' => '3'
   
3.           };

复制代码

jason680

回复 1# 墨迹哥

  try this, I guessed

    return $type->{'status'};

墨迹哥

回复 2# jason680


    THX...