cassandraに挑戦 その4 perl からデータ操作 Net::Cassandra

perlからCassandraのデータを操作してみた。

まずは、環境設定
  1. sudo cpan Net::Cassandra
  2. sudo cpan Bit::Vector
これで準備完了。
サンプルコードは以下。値を取得する部分のみ。
データはあらかじめ、cassandra-cliで突っ込んでます。

use warnings;
use Data::Dumper;
use Net::Cassandra;

my $cassandra = Net::Cassandra->new( hostname => 'localhost' );
my $client    = $cassandra->client;
my $key       = '6hills';

eval {
    my $what = $client->get(
        'Keyspace1',
        $key,
        Net::Cassandra::Backend::ColumnPath->new(
            { column_family => 'Standard1', column => 'item1' }
        ),
        Net::Cassandra::Backend::ConsistencyLevel::QUORUM
        );
    my $value     = $what->column->value;
    my $timestamp = $what->column->timestamp;
    warn "$value , $timestamp";
};
die Dumper($@) if $@; 
これを実行してみると、
$ perl test.pl
ipod , 1267321446497 at test.pl line 22.
無事に値が取れていました。
他のメソッドもこれから試して見ようと思います。