| ´ë±â¿ :: Q4PG :: Lite. PostgreSQLÀ» »ç¿ëÇÏ´Â °£´ÜÇÑ ¸Þ½ÃÁö ´ë±â¿ |
Áö±Ý ´Ù¿î·Îµå |
´ë±â¿ :: Q4PG :: Lite. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- FUJIWARA Shunichiro
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~fujiwara/
´ë±â¿ :: Q4PG :: Lite. ű×
´ë±â¿ :: Q4PG :: Lite. ¼³¸í
PostgreSQLÀ» »ç¿ëÇÏ´Â °£´ÜÇÑ ¸Þ½ÃÁö ´ë±â¿ ´ë±â¿ :: Q4PG :: Lite´Â PG_ADVISORY_LOCK (¹öÀü 8.2 ÀÌ»ó)À» Áö¿øÇÏ´Â PostgreSQLÀ» »ç¿ëÇÏ¿© °£´ÜÇÑ ¸Þ½ÃÁö ´ë±â¿À» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù.ÀÌ ¾Ë°í¸®ÁòÀº http://d.hatena.ne.jp/n_shuyo/20090415¿¡ ÀÇÇØ ¹ß¸íµÇ¾ú½À´Ï´Ù. / Queue :: Q4M.Synopsis¿¡¼ º¹»ç µÈ MQ.Many ÄÚµå´Â ´ë±â¿ :: Q4PG :: Lite; MY $ Q = ´ë±â¿ :: Q4PG :: LITE-> CONNECT (connect_info => ,); (1..10) {$ Q-> »ðÀÔ ($ table, \ % fieldvals); } ($ q-> ´ÙÀ½ ($ table)) {my $ cols = $ q-> fetch_hashref () "col1 = $ cols-> {col1}, col2 = $ cols-> {col2}, col3 = $ cols-> {col3} \ n "; $ Q-> ACK; } $ q-> ¿¬°á ÇØÁ¦; # Å×ÀÌºí ½ºÅ°¸¶¿¡´Â ID ¿ÀÌ ÇÊ¿äÇÕ´Ï´Ù. Å×À̺í MQ »ý¼º (ID Á÷·Ä ±âº» Å°, ¸Þ½ÃÁö ÅؽºÆ®); ¿ä±¸ »çÇ× : ¡¤ Perl.
´ë±â¿ :: Q4PG :: Lite. °ü·Ã ¼ÒÇÁÆ®¿þ¾î