스칼라의 행 수 - Perl

Question

나는 이것에 관한 많은 기사를 보았고 아무도 저를 위해 일하지 않습니다. > {참조} (또는 문제에 접근하는 더 나은 방법을 이야기한다 -

$var1->{reference} = sql_get_rows(); 


sub sql_get_rows(){ 
    etc 
    return ($sth->fetchall_arrayref()); 
}; 

내가하고 싶은 것은 SQL 문에서 발견 $ VAR1을에 저장되는 행 알고있다 -이 코드가 있습니다. 나는 무엇을 쓸 $ var1에 -> {참조} 아래에 저장됩니다 내가 SQL 문에 의해 COUNT를 찾는 방법을 알고

warn Dumper ($var1->{reference}); 

'$VAR1 = [ 
     [ 
     26412502, 
     'initial' 
     ], 
     [ 
     49246682, 
     'title' 
     ], 

참고, 내가 알고 싶은 것을하지 이잖아

감사

을..

Answer 1

print "Rows = " . scalar @{$var1->{reference}};