0

我正在尝试用 Mason 用 Perl 编写一个网站。我使用以下内容设置服务器： - Apache 和 mod_perl 和 Mason - CGI::Session 用于管理会话 - MongoDB 用于数据库。

我担心的是，每次我连接到我的 MongoDB 数据库时，连接都会保持活动状态，直到我重新启动 httpd 服务。因此，如果达到最大连接数，我将无法再打开连接。

有没有人有办法：

  • 要么关闭连接（这可能不是一个好主意）？
  • 要么有一个了解架构的全局数据库连接池吗？
4

2 回答 2

3

只要您的MongoClient实例存在，MongoDB 驱动程序就会使连接保持活动状态。在类似的环境mod_perl中，Perl 解释器是一个持久进程，全局变量将一直存在，直到它们被销毁。

如果您不希望连接是持久的，请创建一个MongoClient对象，其范围将在 HTTP 请求周期完成时结束。当对象被垃圾收集时，连接将被关闭。

如果您使用有关如何创建客户端对象的更多详细信息更新您的问题，我可以提供更详细的答案。

于 2013-09-03T01:10:01.703 回答
0

我最近一直在和这个作斗争。我想出了一个对我有用的非常简单的解决方案。它可能不是最好的，但似乎完美地完成了这项工作。

我们使用 Mojolicious 作为在 apache2/mod_perl 下运行的 API 框架，并且我们发现新连接的建立速度比 perl MongoDB 驱动程序清理它们的速度更快，因为我们的网页正在调用 API 来获取新数据。

所以，我提出了一个简单的...

use strict;
use warnings;
use MongoDB;

our $conn;

if(!defined($conn)){
  $log->info("Creating new DB connection");
  $conn =  MongoDB::MongoClient->new;
}
else{
  $log->info("DB connection already exists");
}

sub fetchData {
    # Do Mongo get/find stuff in here

    my $dbh = $mongoConn->get_database($db);
    my $collection = $dbh->get_collection($col);
    my $cursor = $collection->find($q)->fields($fieldsObj);
    my @result = $cursor->all;
    return @result;
}

显然我已经省略了错误捕获，并且 else 不是必需的，但希望这将有助于像我这样寻找解决方案的人。

于 2015-01-09T13:14:43.723 回答