| ÆÄÀÏ :: ´ë±â¿ Persistent FIFO ´ë±â¿ ¼ø¼öÇÑ Perl¿¡¼ ±¸ÇöµÇ¾ú½À´Ï´Ù! |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: ´ë±â¿ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jason Lavold
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jlavold/
ÆÄÀÏ :: ´ë±â¿ ű×
ÆÄÀÏ :: ´ë±â¿ ¼³¸í
Persistent FIFO ´ë±â¿ ¼ø¼öÇÑ Perl¿¡¼ ±¸ÇöµÇ¾ú½À´Ï´Ù! ÆÄÀÏ :: ´ë±â¿Àº ¼ø¼öÇÑ Perl¿¡¼ ±¸Çö µÈ ¿µ±¸Àû ÀÎ FIFO ´ë±â¿ÀÔ´Ï´Ù! ½Ã³ñ½Ã½º´Â ¾ö°ÝÇÏ°Ô »ç¿ëÇÕ´Ï´Ù. # ¾ðÁ¦³ª! ÆÄÀÏ :: ´ë±â¿À» »ç¿ëÇϽʽÿÀ. MY $ Q = »õ ÆÄÀÏ :: ´ë±â¿ (file => / var / spool / yourprog / queue '); $ Q-> ENQ ( 'ÀϺΠÆò¸é ÅؽºÆ® 1'); $ Q-> ENQ ( 'ÀϺΠÆò¸é text2'); $ Q-> ENQ ( 'ÀϺΠÆò¸é ÅؽºÆ® 3'); # ù ¹ø° 10 ¿ä¼Ò±îÁö ¿Ã¶ó°¡´Â ³» $ contents = $ q-> peek (10); ³» $ ELEM1 = $ Q-> DEQ (); MY $ ELEM2 = $ Q-> DEQ (); # Queue $ q-> reset ()À» ºñ ¿ó´Ï´Ù.ÀÌ ¸ðµâÀº ¿µ±¸Àû ÀÎ FIFO Queue objects.File :: Queue¸¸ÀÌ ½ºÄ®¶ó¸¦ ´ë±â¿ ¿ä¼Ò·Î ó¸®ÇÕ´Ï´Ù. ÂüÁ¶·Î ÀÏÇÏ°í ½Í´Ù¸é ¸ÕÀú Á÷·ÄÈÇϽʽÿÀ! ¸ðµâÀº ¼Óµµ¸¦ ¿°µÎ¿¡µÎ°í ÀÛ¼ºµÇ¾úÁö¸¸ ¸Å¿ì ºü¸£Áö ¸¸ Ä¡·á¿Í ÇÔ²² »ç¿ëÇؾßÇÕ´Ï´Ù. ÁÖÀÇ »çÇ×À» ÂüÁ¶ÇϽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: ´ë±â¿ °ü·Ã ¼ÒÇÁÆ®¿þ¾î