| ¼Ó¼º :: ij½Ã A : ij½Ã µÈ ¼Ó¼ºÀ» »ç¿ëÇÏ¿© ¼ºê ·çƾ °á°ú¸¦ ½±°Ô ij½ÃÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¼Ó¼º :: ij½Ã ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Thermeon Europe
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~osfameron/
¼Ó¼º :: ij½Ã ű×
¼Ó¼º :: ij½Ã ¼³¸í
A : ij½Ã µÈ ¼Ó¼ºÀ» »ç¿ëÇÏ¿© ¼ºê ·çƾ °á°ú¸¦ ½±°Ô ij½ÃÇÕ´Ï´Ù À¥ ÀÀ¿ë ÇÁ·Î±×·¥À» Æ÷ÇÔÇÑ ¸¹Àº ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼ ij½Ì µ¥ÀÌÅÍ´Â »çÀÌÆ®¸¦ È®ÀåÇÏ°í DB ¹× ±âŸ ÀÚ¿øÀÇ ºÎÇÏ°¡ ³·Àº °á°ú¿¡¼ Áï°¢ÀûÀÎ ºÎÁ·ÀÌ ¾à°£ÀÇ ºÎÁ·À» °Å·¡ÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. ÀÚü, % pARS) = @_; # ³» $ cache = $ self-> get_cache ij½Ã °¡Á® ¿À±â; # Å°¸¦ »ý¼ºÇϽʽÿÀ : ¿¹¸¦ µé¾î % pARS (foo => 1), # Å°¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. "my_query : foo = 1"; ³» $ Å° = $ self-> get_key (% pAR); ³» $ °á°ú; #ÀÌ È£ÃâÀ» ÀÌ¹Ì Ä³½ÃÇß´ÂÁö È®ÀÎÇÏ°í ($ result = $ cache-> get ($ Å°)) {$ Å°¿¡ ´ëÇÑ Ä³½Ã È÷Æ® "¸¦ ÀÔ·ÂÇϽʽÿÀ. $ °á°ú¸¦ ¹ÝȯÇÕ´Ï´Ù. } # ´ÙÀ½ ÁÙÀºÀÌ ¼ºê ·çƾÀÌ / $ result = $ self-> expustive_operationÀ» ¼öÇàÇÏ´Â °ÍÀÔ´Ï´Ù. # ... ÇÊ¿ä¿¡ µû¶ó Ãß°¡ ó¸® # $ ij½Ã -> ¼¼Æ® ($ Å°, $ RETER, 20)¿¡ ´ëÇÑ ÇâÈÄ¿¡ ij½ÃÀÇ °á°ú¸¦ ¼³Á¤ÇϽʽÿÀ. # Çϵå ÄÚµå ij½Ã ½Ã°£Àº $ °á°ú¸¦ ¹ÝȯÇÕ´Ï´Ù. } ij½Ì ³í¸®´Â ¹Ýº¹Àû ÀÎ º¸ÀÏ·¯ Ç÷¹ÀÌÆ®°¡µÇ¸ç, ´õ ¾ÇȵǸç, ¿ì¸®°¡ ¿©±â¼ ´Þ¼ºÇÏ·Á´Â °Í°ú´Â ¾Æ¹«·± °ü·ÃÀÌ ¾ø½À´Ï´Ù. Attribute :: Cached ¿ì¸®´Â ´ÙÀ½°ú °°ÀÌ ÀÛ¼ºÇÕ´Ï´Ù : Sub GetCache {My $ self = shift; $ self-> get_cache (@_)} sub my_query : ij½Ã µÈ (time => 20, key => get_key) {³ªÀÇ $ °á°ú = $ self-> expluess_operation; # ... ÇÊ¿ä¿¡ µû¶ó Ãß°¡ ó¸® $ °á°ú¸¦ ¹ÝȯÇÕ´Ï´Ù. } synopsis sub getCache {$ global_cache} ÇÏÀ§ foo : ij½Ã (60) {...} ÇÏÀ§ ¸·´ë : ij½Ã (time => 30, key => keygen) {...} # ¶Ç´Â ƯÁ¤ ij½Ã ÇÏÀ§ BAZ¸¦ Á¦°øÇÕ´Ï´Ù. ij½Ã (½Ã°£ => 20, cache => $ ij½Ã) {...} ¿ä±¸ »çÇ× : ¡¤ Perl.
¼Ó¼º :: ij½Ã °ü·Ã ¼ÒÇÁÆ®¿þ¾î