У меня проблема с подключением к серверу mongodb из моего сценария Perl.
- Сервер mongodb работает нормально на локальном порту 27017
- Я могу получить доступ к серверу mongodb черезоболочка mongod и via mongo Compass (Community Edition)
Но при попытке подключения через Perl я получаю сообщение об ошибке:
"MongoDB::SelectionError: No readable server available for matching read preference primary. MongoDB server status:
Topology type: Single; Member status:
localhost:27017 (type: Unknown, error: MongoDB::NetworkError: Could not
connect to 'localhost:27017': Bad address )"
Простой perlscript:
use strict;
use Data::Dumper;
use open qw/:std :utf8/;
use IO::Handle;
use MongoDB;
#my $client = MongoDB->connect('mongodb://localhost');
# connect to localhost:27017
my $client = MongoDB::MongoClient->new(host => 'localhost', port => 27017);
my $db = $client->get_database( 'example');
my $people_coll = $db->get_collection('people');
$db->drop;
Строка:
my $client = MongoDB::MongoClient->new(host => 'localhost', port => 27017);
не выдает ошибку, но пытается создать или изменить базу данных.Я рассмотрел похожие вопросы о проблемах подключения к mongodb и попытался отключить брандмауэр, удалите /tmp/mongodb-27017.sock (хотя я нигде не мог найти этот файл).
Любая помощь приветствуется!