<p>db_name<br />Database to authenticate on for this connection. Optional. If this, the username, and the password fields are set, the connection will attempt to authenticate against this database on connection/reconnection. Defaults to "admin".</p>
<p>ваш же код должен выглядеть как</p>
<p>my $db = MongoDB::Connection->new(
<div>    host => 'mongodb://localhost:27017'</div>
<div>  )->get_database('MongoTest');</div>
</p>
<p> </p>
<p>On Wed, 17 Oct 2012 14:55:51 +0400, Alexandr Alexeev <afiskon@gmail.com> wrote:</p>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px; width:100%"><!-- html ignored --><!-- head ignored --><!-- meta ignored -->
<p>Допустим, ставим мы монгу, запускаем следующий скрипт:</p>
<div></div>
<div>
<div>#!/usr/bin/env perl</div>
<div></div>
<div>use strict;</div>
<div>use warnings;</div>
<div>use MongoDB;</div>
<div></div>
<div>my $db = MongoDB::Connection->new(</div>
<div>    host => 'mongodb://localhost:27017',</div>
<div>    db_name => 'MongoTest',</div>
<div>  );</div>
<div></div>
<div>$db->test_table->ensure_index({ login => 1 }, { unique => 1});</div>
<div>$db->test_table->insert({ login => 'afiskon', password => 'qwerty' }, { safe => 1 });</div>
<div></div>
<div>Потом говорим:</div>
<div></div>
<div>
<div>$ mongo MongoTest</div>
<div>MongoDB shell version: 2.0.4</div>
<div>connecting to: MongoTest</div>
<div>> db.test_table.find();</div>
</div>
<div></div>
<div></div>
<div>Ничего не добавилось.</div>
<div></div>
<div>Пожалуйста, ткните меня носом, где я дурак?</div>
<div></div>
<div></div>
-- <br />С уважением, Александр<br />Личный блог: <a href="http://eax.me/">http://eax.me/</a><br />Мой форум: <a href="http://it-talk.org/">http://it-talk.org/</a><br />Мой Twitter: <a href="http://twitter.com/afiskon">http://twitter.com/afiskon</a><br /><br /></div>
</blockquote>
<p> </p>