mongoDB에서 Perl로 반환 된 데이터를 가져 오는 방법은 무엇입니까?

Question

나는 http://api.mongodb.org/perl/current/MongoDB/Examples.html을 읽고 펄의 mongoDB에서만 문서화 된 것으로 보인다. Perl에서 mongoDB의 질의 결과를 얻으려면 어떻게해야합니까? 해시에 대해 이야기합시다. 지금까지 DB에 성공적으로 연결되었습니다. 컬렉션에 삽입 작업을 관리했습니다. 이제 select 쿼리를 실행하고 반환 된 데이터를 해시 또는 비슷한 것으로 가져 오는 방법은 무엇입니까?

업데이트 :

Example of my data 
{ 
"_id" : ObjectId("asdhgajsdghajgh"), 
"country" : "USA" 
"city" : "Boston" 
} 

{ 
"_id" : ObjectId("asdhgajsdghajgh"), 
"country" : "USA" 
"city" : "Seattle" 
} 

{ 
"_id" : ObjectId("asdhgajsdghajgh"), 
"country" : "Canada" 
"city" : "Calgary" 
} 

My code 

my $cursor = $my_collection 
    ->find({ country => 1 }) 
    ; 
while (my $row = $cursor->next) { 
    print "$row\n"; 
} 

이 코드는 출력을 생성하지 않습니다. 기본적으로 전체 컬렉션을 반복하고 문서별로 문서를 읽길 원합니다. 내가 뭘 잘못하고 있는지 잘 모르겠다. 위의 코드를 사용했습니다. 나는 $ cursor-> next를 $ cursor-> next로 바 꾸었습니다. 다음은 오타라고 추측합니다. 지금까지 모든 대답에 감사드립니다.

Answer 1

공식 문서가 아닙니다. 바로 CPAN에 머리 :

use Data::Printer; 
use MongoDB; 

# no query is performed on initialization! 
my $cursor = $collection 
    ->find({ active => 1, country => 'Canada' }) # filter "active" records from Canada 
    ->sort({ stamp => -1 }) # order by "stamp" attribute, desc. 
    ->limit(1000);   # first 1000 records 

# query & iterate 
while (my $row = $cur->next) { 
    # it is 'p', from Data::Printer! 
    p $row; 
}