perl操作Mongodb問題？

leoxqing

[root@localhost ~]# vi mongo.pl
#!/usr/bin/perl -w
use strict;
use MongoDB;
use MongoDB::OID;
my $conn = MongoDB::Connection->new("host" => "192.168.110.1:27017","username=>pstkf","passname=>pstkf");
my $database=$conn->pst;
my $coll = $database->get_collection('UsersInfo');
my $data = $database->find_one();
print "$data";

執(zhí)行報錯
[root@localhost ~]# ./mongo.pl
Can't locate object method "UsersInfo" via package "MongoDB::Database" at ./mongo.pl line 7.
提示找不到UsersInfo這個方法，但是UsersInfo是表名。

2gua

都開始用上了Mongodb。

alabos

get_collection

這個不是  MongoDB 的方法吧。


看一下手冊 http://search.cpan.org/~kristina/MongoDB-0.42/lib/MongoDB.pm

1. 
   
2. use MongoDB;
   
3. 
   
4. my $connection = MongoDB::Connection->new(host => 'localhost', port => 27017);
   
5. my $database   = $connection->foo;
   
6. my $collection = $database->bar;
   
7. my $id         = $collection->insert({ some => 'data' });
   
8. my $data       = $collection->find_one({ _id => $id });
   
9. 
   
10. =head
    
11. foo <--   db_name
    
12. bar <--   tbl_name
    
13. =cut
    

復(fù)制代碼

leoxqing

回復(fù) 3# alabos


    謝謝樓上的回復(fù)，我用你的代碼測試了一下，提示找不到bar這個方法。我懷疑是不是perl MongoDB這個模塊沒裝好。
cpan> m MongoDB
CPAN: Storable loaded ok
Going to read /root/.cpan/Metadata
  Database was generated on Mon, 28 Mar 2011 13:33:29 GMT
Module id = MongoDB
    CPAN_USERID  KRISTINA (Kristina Chodorow <kristina@10gen.com>)
    CPAN_VERSION 0.42
    CPAN_FILE    K/KR/KRISTINA/MongoDB-0.42.tar.gz
    MANPAGE      MongoDB - Mongo Driver for Perl
    INST_FILE    /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/MongoDB.pm
    INST_VERSION 0.42