perl简单的添加和更新MongoDB操作

作者:袖梨 2022-06-25

MongoDB 是一个开源的NoSQL数据库。本文我们将介绍其入门知识:如何在MongoDB集合中添加文档,以及如何更新之。

添加元素

下面是最简单的一个例子:往集合里加两个元素。

examples/mongodb_insert_two_elements.pl

use strict;
use warnings;
use 5.010;

use MongoDB ();
use Data::Dumper qw(Dumper);

my $client = MongoDB::MongoClient->new(host => 'localhost', port => 27017);
my $db   = $client->get_database( 'example_' . $$ . '_' . time  );

my $people_coll = $db->get_collection('people');

$people_coll->insert( {
    name => 'First',
});

$people_coll->insert( {
    name => 'Second',
});

my $people = $people_coll->find;
while (my $p = $people->next) {
    print Dumper $p;
}

$db->drop;
my $client = MongoDB::MongoClient->new(host => 'localhost', port => 27017); 此处用来连接MongoDB服务,该服务以默认端口运行在本机。

下面这行代码创建了一个新的数据库。 my $db = $client->get_database( 'example_' . $$ . '_' . time );

为了避免重名,数据库名由当前进程id $$ 和当前时间 time 组成。

一旦有了数据库实例 $db ,我们就可以获取一个集合,类似于关系型数据库(比如sqlserver,mysql)中的表。不过和表不同的是,我们没必要运行sql命令来创建,也不需要表的定义(schema)。 my $people_coll = $db->get_collection('people');

在接下来的两行中,我们往集合里添加了两个元素,这两个元素都是哈希表。MongoDB的叫法是文档(documents)。

$people_coll->insert( {
    name => 'First',
});

$people_coll->insert( {
    name => 'Second',
});
然后调用 find 函数来获取所有文档。这个函数会返回一个所有文档的迭代器。用 next 函数就可以完成遍历。

my $people = $people_coll->find;
while (my $p = $people->next) {
    print Dumper $p;
}
每次迭代都返回一个哈希表 $p , 用Data::Dumper可以打印其值。

$VAR1 = {
          '_id' => bless( {
                          'value' => '52861f9602490acc35000000'
                        }, 'MongoDB::OID' ),
          'name' => 'First'
        };
$VAR1 = {
          '_id' => bless( {
                          'value' => '52861f9602490acc35000001'
                        }, 'MongoDB::OID' ),
          'name' => 'Second'
        };
除了加入的名字外,每个文档还包括了一个特有的 _id ,也叫 ObjectIDd .(详情参见 规范 )

最后一行 $db->drop; 直接把当前数据库删除了.

手动删除数据库

如果因为某种原因,比如脚本抛了异常,导致数据库没被删除,这时我们也可以手动删除它,这个需要借助于

mongo

命令行。

$ mongo
MongoDB shell version: 2.4.6
connecting to: test
> show dbs
demo   0.078125GB
dev_site  0.203125GB
example_13930_1384522288   0.203125GB
local   0.078125GB

> use example_13930_1384522288
switched to db example_13930_1384522288

> db.dropDatabase()
{ "dropped" : "example_13930_1384522288", "ok" : 1 }

> show dbs
demo   0.078125GB
dev_site   0.203125GB
local  0.078125GB

> exit
bye
$
show dbs 列出所有数据库。

use example_13930_1384522288 切换到要删除的数据库。

db.dropDatabase() 删除数据库。

exit , 退出命令行.

在END块删除数据库

当然我们也可以在 END 块删除数据库:

END {
    $db->drop if $db;
}
即便有异常抛出,这块代码最后也会保证被调用。

if 保证了我们不会调用空的数据库实例。

更新某个文档

下面我们来展示如何更新文档。在第二个 insert 后我加入了如下代码:

$people_coll->update(
    { name => 'Second'},
    { '$set' => {
            phone => '1-123',
        },
    },
);
update 接受两个哈希表参数。第一个 { name => 'Second'} 选中要更新的文档(类似于sql的where语句)。也就是说,挑出name等于“Second”的那个文档。

第二个参数指定了如何更新文档。 '$set' 是一条MongoDB命令,告诉数据库引擎重新设置键值对。 { phone => '1-123'} 就是新设置的键值对,不管键之前是否存在,该操作都会执行。

输出如下:

$VAR1 = {
          'name' => 'First',
          '_id' => bless( {
                          'value' => '52862563527197d436000000'
                        }, 'MongoDB::OID' )
        };
$VAR1 = {
          'name' => 'Second',
          '_id' => bless( {
                          'value' => '52862563527197d436000001'
                        }, 'MongoDB::OID' ),
          'phone' => '1-123'
        };
ObjectIds 变了,因为程序重新跑了一次。这个不是重点,关键是第二个文档现在有'name','phone'两个属性了,而第一个文档还是只有一个属性'name'。

相关文章

精彩推荐