use perl to connect to MongoDB

perl code

use strict;
use MongoDB;
use MongoDB::OID;

my $conn=MongoDB::Connection->new;

print "conn $conn\n";


my $db=$conn->egtry;

print "db $db\n";


my $collection=$db->collection1;

print "collection $collection\n";

my $cursor=$collection->find;

print "cursor $cursor\n\n";

while(my $doc=$cursor->next) {
  foreach my $key (keys %$doc ) {
     my $val=$doc->{$key};
     print "$key->$val\n";
  }
  print "\n";
}

Output

conn MongoDB::Connection=HASH(0x241395c)
db MongoDB::Database=HASH(0x241393c)
collection MongoDB::Collection=HASH(0x2a1da2c)
cursor MongoDB::Cursor=HASH(0x2a1911c)

_id->4f5984992f88e0a711b6494f
title->hello
path->/egtry/java