约束：必须处理大约300k次插入/秒，必须是自限制(上限)，必须能够相对较快地查询

问题空间：必须处理主要手机公司的呼叫记录(大约300k次插入/秒)，并使这些呼叫记录能够尽可能长时间(例如一周)

#!/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();