Debuginfo

思考とアウトプット

PerlからMongoHQを操作する

http://www.mongohq.com/でサインアップします。 "Start with an Elastic Deployment"でちゃんとSandboxを選びましょう。 512Mまではフリーです:) 

下記のようにデフォルで有料プラン。。

f:id:shoheik:20140422183027p:plain

まず、MongoHQの管理パネルでユーザを作ります。直感的にわかると思いますが、 Admin in Sidebar -> Users tab で作ります。

f:id:shoheik:20140422183104p:plain

で、Perlから操作するにはCPANにMongoDBというモジュールを使います。

#!/usr/bin/env perl

use MongoDB;
use Data::Dumper;

my $client     = MongoDB::MongoClient->new(
    host => 'oceanic.mongohq.com', 
    port => 10034, 
    username => "my_user", 
    password => "xxxxx",
    db_name => 'my_db',
);
print Dumper $client;
my $db = $client->get_database('my_db');
$db->get_collection('my_collection')->insert({ name => 'hoge' });

こんな感じ。問題は遅延か -_-;; データセンターを選べるか質問を投げたところ。

しかし、他にもれずPerlはサポートから外れてて寂しいですね(´・ω・`)