Perl и MongoDB ... найти и взять результаты

Question

Хорошо ... Я бы хотел взять значения "name" и "id" ... но как ?! :)

my $results = $collection->find( { })->fields( { name => 1, _id => 1 } );
while (my $doc = $results->next){
  foreach my $key (keys %$doc){
    my $name = $doc->{$key};
    ...
    print "name: $name\n";
    print "id: $id\n";
  }
}

Answer 1

Простой доступ к атрибутам, которые вам нужны внутри каждого документа :) Пример с использованием итератора курсора:

my $cursor = $collection->find({})->fields({ 
   name => 1, 
   _id => 1 
});
while (my $doc = $cursor->next){
    say "name: $doc->{name}" ;
    say " _id: $doc->{_id}" ;
}

или одновременный вывод всех результатов:

map {
    say "name: $_->{name}" ;
    say " _id: $_->{_id}" ;
} $cursor->all ;