Я пытаюсь увеличить количество вставок в секунду. В настоящее время я получаю около 20 тыс. Вставок в секунду. Моя производительность на самом деле ухудшается, чем больше потоков и процессоров я использую (у меня доступно 16 ядер). В настоящее время 2 потока выполняют в секунду больше, чем 16 потоков на 16-ядерном двухпроцессорном компьютере. Есть идеи, в чем проблема? Это потому, что я использую только один Mongod? Индексация может замедлить процесс? Нужно ли использовать шард? Интересно, есть ли способ осквернить, но также сохранить базу данных закрытой ...
Ограничения : должен обрабатывать около 300 тыс. Вставок в секунду, должен быть самоограничивающимся (ограниченным), должен относительно быстро выполнять запрос
Пространство проблемы : должен обрабатывать записи о вызовах для крупной сотовой компании (около 300 тыс. Вставок в секунду) и делать эти записи вызовов доступными для запросов как можно дольше (например, неделю)
#!/usr/bin/perl
use strict;
use warnings;
use threads;
use threads::shared;
use MongoDB;
use Time::HiRes;
my $conn = MongoDB::Connection->new;
my $db = $conn->tutorial;
my $users = $db->users;
my $cmd = Tie::IxHash->new(
"create" => "users",
"capped" => "boolean::true",
"max" => 10000000,
);
$db->run_command($cmd);
my $idx = Tie::IxHash->new(
"background"=> "boolean::true",
);
$users->ensure_index($idx);
my $myhash =
{
"name" => "James",
"age" => 31,
# "likes" => [qw/Danielle biking food games/]
};
my $j : shared = 0;
my $numthread = 2; # how many threads to run
my @array;
for (1..100000) {
push (@array, $myhash);
$j++;
}
sub thInsert {
#my @ids = $users->batch_insert(\@array);
#$users->bulk_insert(\@array);
$users->batch_insert(\@array);
}
my @threads;
my $timestart = Time::HiRes::time();
push @threads, threads->new(\&thInsert) for 1..$numthread;
$_->join foreach @threads; # wait for all threads to finish
print (($j*$numthread) . "\n");
my $timeend = Time::HiRes::time();
print( (($j*$numthread)/($timeend - $timestart)) . "\n");
$users->drop();
$db->drop();