Допустим, ставим мы монгу, запускаем следующий скрипт:<div><br></div><div><div>#!/usr/bin/env perl</div><div><br></div><div>use strict;</div><div>use warnings;</div><div>use MongoDB;</div><div><br></div><div>my $db = MongoDB::Connection->new(</div>
<div>    host => 'mongodb://localhost:27017',</div><div>    db_name => 'MongoTest',</div><div>  );</div><div><br></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><br></div><div>Потом говорим:</div><div><br></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><br></div><div><br></div><div>Ничего не добавилось.</div><div><br></div><div>Пожалуйста, ткните меня носом, где я дурак?</div><div><br></div>
<div><br></div>-- <br>С уважением, Александр<br>Личный блог: <a href="http://eax.me/" target="_blank">http://eax.me/</a><br>Мой форум: <a href="http://it-talk.org/" target="_blank">http://it-talk.org/</a><br>Мой Twitter: <a href="http://twitter.com/afiskon" target="_blank">http://twitter.com/afiskon</a><br>
<br>
</div>