Perl AnyEvent::DBI::MySQL請教返回結果處理

墨跡哥

以下是查詢某個狀態(tài)，然后希望可以得到一個status返回值。
但是怎么弄都是空。。。

1. # 查詢狀態(tài)
   
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的狀態(tài)
    
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...