perl操縱mongodb

agile_work

如上圖所示，向數(shù)據(jù)庫(kù)里插入了數(shù)據(jù)，為什么返回的是一個(gè)HASH值。
我的代碼如下：

1. use strict ;
   
2. use warnings;
   
3. use MongoDB;
   
4. use MongoDB::OID;
   
5. use  MongoDB::Connection;
   
6. use MongoDB::Database;
   
7. use  MongoDB::Collection;
   
8. #use Test::More tests =>1;
   
9. 
   
10.     my $conn = MongoDB::Connection->new;
    
11.         my $db = $conn->test;
    
12.         my $users = $db->users;
    
13.         my $id = $users->insert({"name" => "tangke"});
    
14.         my $all_users = $users->find({"name"=>"tangke"});
    
15. 
    
16.         print $all_users;

復(fù)制代碼

agile_work

解決了。