| ÅؽºÆ® :: ´ëÈ ÇÑ ¹ø¿¡ ÇÑ ÁÙÀÇ ½º·¹µå·Î ´ëȸ¦ µ¹¸³´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: ´ëÈ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Rocco Caputo
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~apocal/
ÅؽºÆ® :: ´ëÈ Å±×
ÅؽºÆ® :: ´ëÈ ¼³¸í
´ëȸ¦ ÇÑ ¹ø¿¡ ÇÑ ÁÙ, ´ëȸ¦ ³ª»ç·Î µ¹¸®½Ê½Ã¿À. Text :: ConversationÀº Perl ¸ðµâ·Î, ´ëȸ¦ ½º·¹µå·Î ÀüȯÇÏ´Â Perl ¸ðµâ, ½Ã°£¿¡ ÇÑ ÁÙÀÔ´Ï´Ù .Snopsis #! PerlÀº °æ°í¸¦ »ç¿ëÇÕ´Ï´Ù. ¾ö°ÝÇÑ »ç¿ë; ÅؽºÆ® :: ´ëȸ¦ »ç¿ëÇϽʽÿÀ. MY $ threader = text :: concementation-> new (); ³» %ÀÇ ¸Þ½ÃÁö; while () {$ speaker_name, $ less_text) = /^(sext) = / ^ (sseex) My ($ this_message_id, $ leferent_message_id) = $ threader-> °üÂû ($ speaker_name, $ less_text); $ messages {$ this_message_id} = "$ rect_text"; $ ¸Þ½ÃÁö¸¦ Àμâ {$ this_message_id}, " "; if ($ rescent_message_id) {print"´Â $ messages {$ recent_message_id}¸¦ ³ªÅ¸³À´Ï´Ù. ";} else {print"´Â ¾Æ¹« °Íµµ ÂüÁ¶ÇÏÁö ¾Ê½À´Ï´Ù. ";}} text :: ´ëÈ´Â ÇÑ ¹ø¿¡ ´ëÈ Çü ÅؽºÆ®¸¦ ÇϳªÀÇ Çà¿¡ Çϳª¾¿ ½º·¹µåÇÏ·Á°í ½ÃµµÇÕ´Ï´Ù. ½ºÇÇÄ¿ÀÇ ID (Á¾Á¾ À̸§, ȸé À̸§ ¶Ç´Â ±âŸ »ó´ëÀûÀ¸·Î °íÀ¯ ÇÑ ½Äº°ÀÚ)¿Í ¸Þ½ÃÁöÀÇ ÅؽºÆ®°¡ ÁÖ¾îÁö¸é °¡Àå ¸¹ÀÌ Ã£À¸·Á°í ½ÃµµÇÕ´Ï´Ù. ±×µéÀÌ ¸»ÇÏ´Â ¸Þ½ÃÁö°¡ ³ªÅ¸³¯ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ ¾ð±Þ ÇÒ ¼ö¾ø´Â ½Ã°£À» ³ªÅ¸³À´Ï´Ù. Áö±Ý±îÁö °¡Àå ÀϹÝÀûÀÎ Áú¹®Àº "¾î¶»°Ô ÀÛµ¿Çմϱî?"¶ó´Â Á¾Á¾ À̾îÁø °ÍÀÔ´Ï´Ù. " ¸Þ½ÃÁöÀÇ ½ÃÀÛ? "ÅؽºÆ® :: ´ëÈ´Â ¸Þ½ÃÁöÀÇ Áö½Ã¸¦ °áÁ¤Çϱâ À§ÇØ ¿©·¯ °¡Áö °æÇèÀû ¹æ¹ýÀ» »ç¿ëÇÕ´Ï´Ù. È®½ÇÈ÷ ´Ù¸¥ ½ºÇÇÄ¿ÀÇ ID°¡ ¸¹ÀÌ ÀÖÁö¸¸ µÎ ¸Þ½ÃÁö°£¿¡ ÀϹÝÀûÀÎ ´Ü¾î°¡ ³Ê¹« ¸¹½À´Ï´Ù. ÀüÀÚ ¸ÞÀÏ message.text :: ´ëÈ´Â ¶ÇÇÑ ¸í½Ã ÀûÀ̰ųª ¾Ï½Ã ÀûÀ¸·Î ¼·Î¸¦ »ç¿ëÇÏ´Â »ç¶÷µéÀ» ÃßÀûÇÕ´Ï´Ù. ´Ù¸¥ »ç¶÷ÀÌ Áö¼ÓÀûÀÎ ´ëÈÀÇ ÀϺÎÀÎ ¸Þ½ÃÁö°¡ °Ü³ÉµÈ ¸Þ½ÃÁö°¡ »ý±â´Â °ÍÀÔ´Ï´Ù. ¸ðµâµµ ÅëÇյ˴ϴÙ. ¹úÄ¢. µÎ ¸Þ½ÃÁö °£ÀÇ ¸µÅ©´Â ¸ðµâÀÌ ¸Ö¸®¼ ´Ù½Ã °Ë»öÇÏ´Â °Íó·³ ´õ ¸¹Àº ºÐµµµË´Ï´Ù. ¸¶Âù°¡Áö·Î, ½ºÇÇÄ¿ÀÇ ÀÌÀü ¸Þ½ÃÁö¸¦ ÃÊ°úÇÏ´Â ¸Þ½ÃÁö¸¦ ÂüÁ¶Çϰųª Addressee'sext :: ´ëÈ´Â "º£Å¸"Ç°Áú Äڵ尡 µÉ °ÍÀ¸·Î °£Áֵ˴ϴÙ. ÈÞ¸®½ºÆ½Àº Á¾Á¾ À¯Å뽺·´°Ô Á¤È®ÇÕ´Ï´Ù ... ´ç½ÅÀÌ ÀÚ½ÅÀÇ ´ÜÁ¡À» È®°íÈ÷ ¹«½ÃÇϸé. ³ª´Â ¸ðµâ °øÀå¿¡ °¤ÇôÀÖ´Ù. ÀÇ°ß°ú ÆÐÄ¡¸¦ º¸³»ÁֽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÅؽºÆ® :: ´ëÈ °ü·Ã ¼ÒÇÁÆ®¿þ¾î