鐃緒申鐃緒申鐃舜�鐃緒申鐃緒申鐃�»鐃淳�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申Ruby 鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃� memcached 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 Perl 鐃緒申鐃�«鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申��鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃�»鐃緒申��鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�鐃渋￥申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃�·鐃緒申鐃�¼鐃暑™申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓�Ê鐃緒申鐃�»鐃緒申�Î�鐃術�鐃渋￥申ActiveRecord鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\·\鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃緒申鐃緒申»鐃緒申��鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓�ͽ鐃緒申鐃緒申鐃遵™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申ActiveRecord 鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃�¹鐃緒申鐃縮�鐃緒申鐃緒申鐃� Perl 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申��鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�½鐃緒申鐃緒申鐃緒申鐃暑Ǚ申³鐃暑™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃渋￥申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃� Ruby 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� memcached 鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃� set 鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

#!/usr/bin/ruby

require 'rubygems'
require 'activerecord'
require 'memcache'

class Hoge < ActiveRecord::Base
  establish_connection(
    'adapter'  => 'mysql',
    'host'     => 'localhost',
    'database' => 'test',
    'username' => 'USER',
    'password' => 'PASS',
    'encoding' => 'utf8'
  )
  set_table_name :hoge
end

cache = MemCache::new '127.0.0.1:11211'

# 鐃緒申鐃緒申鐃緒申»鐃緒申�Î�鐃緒申
cache['hogehoge'] = 'fugafuga'    

# ActiveRecord 鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�
hoge = Hoge.find(1)
cache['activerecord'] = hoge

# \鐃緒申鐃�\鐃緒申鐃�\·\鐃緒申鐃�
hash = {}
hash['hoge'] = 100
hash['fuga'] = 200
cache['foo'] = hash

鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 Perl 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

#!/usr/bin/perl

use strict;
use warnings;
use Cache::Memcached;
use Data::Dumper;

my $cache = Cache::Memcached->new({
    servers => ['127.0.0.1:11211']    
});

warn Dumper $cache->get('hogehoge'); # fugafuga';

warn Dumper $cache->get('activerecord'); # $VAR1 = o:      Hoge:@attributes{"      name"\\"id"1:@attributes_cache{';

warn Dumper $cache->get('foo'); # $VAR1 = {"      fugai   hogeii';

鐃緒申��鐃獣�鐃渋�鐃獣�鐃渋�鐃緒申²鐃緒申��鐃緒申«鐃緒申鐃緒申鐃出�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃�¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申�™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃渋£Ê鐃緒申鐃�»鐃緒申�Î�鐃術�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申陝��鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�鐃渋￥申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃術�鐃緒申鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申�™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�鐃渋￥申

#!/usr/bin/perl

use strict;
use warnings;
use Cache::Memcached;
use Data::Dumper;

my $cache = Cache::Memcached->new({
    servers => ['127.0.0.1:11211']    
});

my $hash = {
    fugafuga => 1
};
my $hogehoge = $cache->get('hogehoge');
warn Dumper $hash->{$hogehoge}; # undef

\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申��鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 'fugafuga' 鐃緒申鐃縮�鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申��鐃緒申鐃緒申臓鐃�undef 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�1 鐃緒申鐃縮�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�™申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃暑ø�鐃緒申鐃緒申��鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申Ruby 鐃緒申鐃緒申鐃緒申 memcache-client 鐃緒申鐃緒申鐃緒申\½鐃緒申鐃�¼\¹\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申臓�Í鐃緒申�ͳ鐃緒申鐃縮�鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�鐃渋￥申

# /usr/lib/ruby/gems/1.8/gems/memcache-client-1.7.5/lib/memcache.rb 鐃緒申鐃緒申鐃渋°ǚ申鐃緒申鐃緒申鐃緒申
alias [] get    
      
def []=(key, value)
  set key, value
end

# set
def set(key, value, expiry = 0, raw = false)
  raise MemCacheError, "Update of readonly cache" if @readonly

  value = Marshal.dump value unless raw
  with_server(key) do |server, cache_key|
    logger.debug { "set #{key} to #{server.inspect}: #{value.to_s.size}" } if logger

    if @check_size && value.to_s.size > ONE_MB
      raise MemCacheError, "Value too large, memcached can only store 1MB of data per key"
    end

    command = "set #{cache_key} 0 #{expiry} #{value.to_s.size}#{noreply}\r\n#{value}\r\n"

    with_socket_management(server) do |socket|
      socket.write command
      break nil if @no_reply
      result = socket.gets
      raise_on_error_response! result

      if result.nil?
        server.close
        raise MemCacheError, "lost connection to #{server.host}:#{server.port}"
      end

      result
    end
  end
end

#get
def get(key, raw = false)
  with_server(key) do |server, cache_key|
    logger.debug { "get #{key} from #{server.inspect}" } if logger
    value = cache_get server, cache_key
    return nil if value.nil?
    value = Marshal.load value unless raw
    return value
  end
rescue TypeError => err
  handle_error nil, err
end

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑¡￥申[] 鐃緒申鐃緒申鐃緒申 set 鐃緒申鐃緒申鐃緒申\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\¹鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃縮�鐃渋￥申鐃�½鐃緒申鐃緒申鐃緒申 set 鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申Marshal.dump 鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申��鐃緒申 raw 鐃緒申鐃緒申 false 鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申��鐃緒申鐃緒申臓鐃緒申½鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�­鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 get 鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃縮�鐃渋￥申鐃�½鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� Marshal.load 鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申��鐃緒申 raw 鐃緒申鐃緒申 false 鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申��鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃渋￥申Ruby 鐃緒申鐃緒申鐃緒申 set 鐃緒申鐃�·鐃緒申鐃緒申鐃縦�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃� Perl 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�鐃渋￥申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�Perl 鐃緒申鐃緒申鐃緒申 Storable \鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃署¨�鐃緒申Ð鐃緒申鐃緒申鐃巡™申µ½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�鐃渋￥申鐃緒申鐃獣�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�鐃渋￥申臓�È鐃緒申�Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�¼鐃暑™申漫�ǚ申鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申��鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申��鐃渚™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�鐃渋￥申

鐃緒申鐃�½鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 raw 鐃緒申鐃緒申鐃緒申 true 鐃緒申鐃緒申鐃述�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申鐃緒申鐃緒申�ë鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃獣�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申臓�Ê鐃緒申鐃�»鐃緒申�Î�鐃術�鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃� set, get 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�­鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�鐃緒申鐃緒申鐃�¹鐃緒申��鐃緒申鐃緒申��鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 ActiveRecord 鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\·\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃� set 鐃緒申鐃緒申鐃緒申\鐃緒申\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�鐃渋￥申臓鐃緒申½鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�(鐃緒申鐃�­鐃緒申\鐃緒申¾)

#!/usr/bin/ruby

require 'rubygems'
require 'activerecord'
require 'memcache'

class Hoge < ActiveRecord::Base
  establish_connection(
    'adapter'  => 'mysql',
    'host'     => 'localhost',
    'database' => 'test',
    'username' => 'USER',
    'password' => 'PASS',
    'encoding' => 'utf8'
  )
  set_table_name :hoge
end

cache = MemCache::new '127.0.0.1:11211'

cache.set('hogehoge', 'fugafuga', 0, true)

hash = {}
hash['hoge'] = 100
hash['fuga'] = 200
cache.set('foo', hash, 0, true) # \鐃緒申\鐃緒申鐃緒申鐃緒申¼

hoge = Hoge.find(1)
cache.set('activerecord', hoge, 0, true) # \鐃緒申\鐃緒申鐃緒申鐃緒申¼

鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋¢È鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�·鐃緒申鐃�¼鐃暑™申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�XML 鐃緒申鐃緒申鐃緒申 JSON 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃�¼鐃暑™申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃渋�鐃緒申鐃緒申陝��鐃緒申Ð JSON ·鐃緒申鐃�¼鐃暑™申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�鐃渋￥申

鐃緒申鐃�³鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃� Ruby 鐃緒申鐃緒申鐃緒申 \鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申��鐃暑î�鐃緒申鐃緒申�™申·鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 JSON ·鐃緒申鐃�¼鐃暑™申鐃緒申鐃緒申鐃緒申鐃緒申弌鐃�¹鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃�memcached 鐃緒申鐃緒申鐃緒申 set 鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申臓�Â鐃緒申鐃�4鐃暑ú¿�鐃緒申 (raw) 鐃緒申鐃緒申鐃緒申 true 鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\·\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�™申鐃緒申鐃�¹鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑Õ�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�3鐃暑ú¿�鐃峻�鐃緒申鐃緒申鐃� expires 鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃縮�鐃渋￥申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 0 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃�¾鐃緒申鐃緒申鐃署¨�鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�鐃渋�鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃�\µ鐃緒申鐃�¼\Ð鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃暑™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申臓鐃�

#!/usr/bin/ruby

require 'rubygems'
require 'activerecord'
require 'memcache'

class Hoge < ActiveRecord::Base
  establish_connection(
    'adapter'  => 'mysql',
    'host'     => 'localhost',
    'database' => 'test',
    'username' => 'USER',
    'password' => 'PASS',
    'encoding' => 'utf8'
  )
  set_table_name :hoge
end

cache = MemCache::new '127.0.0.1:11211'

hash = { 
  'key1' => 'data1', 
  'key2' => 'data2'
}
cache.set('json', hash.to_json, 0, true)

鐃緒申鐃�½鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃渋￥申Perl 鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申鐃�¼鐃緒申��鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申JSON 鐃緒申鐃�«鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\·\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申弌鐃�¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�鐃渋￥申鐃�³鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃暑Û™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\¹\Ð\鐃緒申鐃�\·\¹鐃緒申臓鐃�

#!/usr/bin/perl

use strict;
use warnings;
use Cache::Memcached;
use JSON;
use Data::Dumper;

my $cache = Cache::Memcached->new({
    servers => ['127.0.0.1:11211']    
});

my $json = $cache->get('json');

warn Dumper from_json($json); # $VAR1 = {
                              #     'key2' => 'data2',
                              #     'key1' => 'data1'
                              # };
¤³¤Î\¨\ó\È\꡼¤ò¤Ï¤Æ¤Ê\Ö\Ã\¯\Þ¡¼\¯¤ËÄɲÃ
\鐃緒申鐃�\鐃緒申 鐃緒申臓鐃�