ÅؽºÆ® :: ´ëÈ­

ÇÑ ¹ø¿¡ ÇÑ ÁÙÀÇ ½º·¹µå·Î ´ëÈ­¸¦ µ¹¸³´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÅؽºÆ® :: ´ëÈ­ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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.


ÅؽºÆ® :: ´ëÈ­ °ü·Ã ¼ÒÇÁÆ®¿þ¾î