perl *** 作memcache_语言综合

概述想到用perl *** 作memcache的原因，是因为需要从一个数据库里取数据，然后插入另外一个数据库中(从mysql里取数据，插入到postgresql)，mysql是在用的数据库，而postgresql则是存放所有历史数据的。由于不是实时取的，在一段时间间隔里，可能会有大量的数据需要取，如果是直接取一条插一条的话，可能时间会比较慢，并且影响到数据库的性能。所以就想如果能把取出来的数

想到用perl *** 作memcache的原因，是因为需要从一个数据库里取数据，然后插入另外一个数据库中(从MysqL里取数据，插入到postgresql)，MysqL是在用的数据库，而postgresql则是存放所有历史数据的。由于不是实时取的，在一段时间间隔里，可能会有大量的数据需要取，如果是直接取一条插一条的话，可能时间会比较慢，并且影响到数据库的性能。

所以就想如果能把取出来的数据尽可能快的存放到一个地方去，然后再从那个地方取出来存放到postgresql，这样即不影响MysqL的性能，也提高的效率。常用的存储介质中自然是放到内存里最快的了，然后就想到nosql，在这么多的nosql产品中，memcache比较熟悉，故此，就选用了memcache，将要取的数据先存放到memcache里，然后，再从memcache里取数据存放到postgresql里。

思路有了，然后就开始实施了，要 *** 作memcache、MysqL、postgresql，需要安装相应的perl模块，cpan直接搞定，下面的代码是测试的代码：

  #/usr/bin/perl -w     use strict;     use Data::Dumper;     use DBI;     use DBD::Pg;     use Cache::Memcached;          my $dbname='zabbix';     my $uname='zabbix';     my $pw='zabbix';     my $host='192.168.65.219';     my $port="5432";     my $mc_expires=500000;          #connect database     my $dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port",$uname,$pw,{autoCommit => 1});          #my $sth=$dbh->prepare("select userID,alias,name,surname,passwd from users");     my $sth=$dbh->prepare("select * from history where clock < 1348037308;");     $sth->execute();          #connect memcache     my $mem = new Cache::Memcached({          servers =>["192.168.65.219:11211"],          });     $mem->set_connect_timeout(0.1);          my $row;     #my $key,$value;     my %row_hash;     while($row = $sth -> fetchrow_hashref)     {     #  print Dumper($row);       my $zb_itemID=$row -> {itemID};      my $zb_value=$row -> {value};       my $zb_ns=$row -> {ns};            my $key=$row->{clock};       printf("$key\n");          #  $mem->set($key,{array1122 => ['a11','b22','c333'],someone => {aaa => "bbb", 444 => "dddd"}, sss => "eee"},$mc_expires);       $mem->set($key,{$key=>{zb_itemID=>"$zb_itemID",zb_value=>"$zb_value",zb_ns=>"$zb_ns"}});       my $test = $mem->get($key);       printf("$test->{$key}->{zb_itemID}\n");       print Dumper($test) . "\n";

上面代码 *** 作zabbix的数据库的，目的是从现在正在使用的zabbix数据库中，取出history这张表的数据出来，存放到memcache里去，然后再从memcache里取数据，存放到postgresql数据库里去。

这里取出的数据以clock为key，其他字段为value，存放到memcache里去，perl *** 作memcache和PHP *** 作有些不一致,PHP可以将多个字段的值存放在一个数组里，然后再将这个数组作为value存放到memcache里。

但perl不行，如果直接将数组作为value的话，则只能将数组的第一个值存放到memcache里，那么数组的引用可以吗？这样是可以的，如下代码：

  while($row = $sth -> fetchrow_hashref)     {     #  print Dumper($row);       my $zb_itemID=$row -> {itemID};       my $zb_value=$row -> {value};       my $zb_ns=$row -> {ns};            my @data=("$zb_itemID","$zb_value","$zb_ns");       my $insert_data=\@data;      #插入的时候，使用数组引用      $mem->set($key,$insert_data,$mc_expires);       my $test=$mem->get($key);       print Dumper($test) . "\n";

得到如下的数据结构：

从得到的数据结构来看，$mem->get($key)得到的是数组的引用，要得到真实的数据，还得解引用，如下方式：

  printf("$test->[0]  $test->[1]  $test->[2]\n");

这样才能得到真实的数据。如果这样 *** 作的话，只能按照数组的下标来 *** 作数据。

在cpan里的例子是这样来 *** 作memcache的：

  $memd->set("my_key", "Some value");     $memd->set("object_key", { 'complex' => [ "object", 2, 4 ]});

这样是以一个匿名hash的方式来存放一组数据的，具体的 *** 作方式还可以有以下几种：

  #匿名hash中value是一个匿名数组     $mem->set($key,{array1122 => ['a11','b22','c333']});     #匿名hash中的匿名hash     $mem->set($key,{someone => {aaa => "bbb", 444 => "dddd"});     #hash中的hash     $mem->set($key,{sss => "eee"});