Çؽà :: ÄÄÆÑÆ®

Å° º°Äª ¹× ±âº»°ª Áö¿øÀÌÀÖ´Â Çؽà ±â¹Ý ¿ÀºêÁ§Æ® ±¸Çö
Áö±Ý ´Ù¿î·Îµå

Çؽà :: ÄÄÆÑÆ® ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Kentaro Kuribayashi
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~kentaro/

Çؽà :: ÄÄÆÑÆ® ű×


Çؽà :: ÄÄÆÑÆ® ¼³¸í

ÁÖ¿ä º°Äª ¹× ±âº»°ª Áö¿øÀÌÀÖ´Â Çؽà ±â¹Ý ¿ÀºêÁ§Æ® ±¸Çö ÀϺΠ±¸Á¶È­ µÈ °ªÀ» °ü°èÇü µ¥ÀÌÅͺ£À̽º ¶Ç´Â ÀϺΠŰ / °ª ÀúÀå¼ÒÀÇ ¿­¿¡ ÀúÀåÇÏ¸é ±ä Å° À̸§ÀÇ Áߺ¹¼ºÀÌ ÀúÀå °ø°£ÀÇ ¹®Á¦°¡ µÉ ¼ö ÀÖ½À´Ï´Ù .Hash :: Compact´Â Perl ¸ðµâÀÌÁö¸¸ ´Ù¸¥ Çؽà ±â¹Ý ¿ÀºêÁ§Æ® ±¸ÇöÀº ¿ìÁÖ È¿À²¼º°ú US¸¦ À§ÇØ »ç¿ëÇϱâÀ§ÇÑ ¿ëÀ̼ºÀ» ¾Ë°íÀÖ´Â °ÍÀ» ¸ñÇ¥·ÎÇÕ´Ï´Ù .Synopsis ÆÐÅ°Áö My :: Memcached; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. »óÀ§ QW (ij½Ã :: Memcached :: Fast)¸¦ »ç¿ëÇϽʽÿÀ. JSON; Çؽà :: ÄÄÆÑÆ®¸¦ »ç¿ëÇϽʽÿÀ. ³» $ ¿É¼Ç = {foo => {alias_for => 'f',}, bar => {alias_for => 'b', default => 'bar',},}; SUB GET {MY ($ self, $ Å°) = @_; ³» $ Value = $ Self-> Super :: Get ($ Å°); Çؽà :: Compact-> New (decode_json $ °ª, $ ¿É¼Ç); } Sub Set {My ($ Self, $ Å°, $ value, $ Expire) = @_; MY $ hash = Çؽà :: ÄÄÆÑÆ® -> »õ ($ °ª, $ ¿É¼Ç); $ self-> super :: set ($ key, encode_json $ hash-> to_hash, $ ¸¸·á); } ÆÐÅ°Áö ¸ÞÀÎ; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Å×½ºÆ®¸¦ »ç¿ëÇϽʽÿÀ :: ±âŸ; ³» $ Å° = 'Å°'; ³» $ VALUE = {foo => 'foo'}; MY $ MEMD = MY :: MEMCACHED-> NEW ({¼­¹ö => }); $ memd-> ¼³Á¤ ($ Å°, $ value); MY $ CACHED_VALUE = $ MEMD-> GET ($ Å°); is_deeply $ cached_value-> param ( 'foo'), 'foo'; is_deeply $ cached_value-> param ( 'bar'), 'bar'; is_deeply $ cached_value-> to_hash, + {f => 'foo'}; $ cached_value-> param (bar => 'baz'); $ memd-> set ($ Å°, $ cached_value-> to_hash); $ cached_value = $ memd-> get ($ Å°); is_deeply $ cached_value-> param ( 'foo'), 'foo'; is_deeply $ cached_value-> param ( 'bar'), 'baz'; is_deeply $ cached_value-> to_hash, + {f => 'foo', b => 'baz'}; done_testing; ¿ä±¸ »çÇ× : ¡¤ Perl.


Çؽà :: ÄÄÆÑÆ® °ü·Ã ¼ÒÇÁÆ®¿þ¾î