ÅؽºÆ® :: Twiddler.

ÅؽºÆ® :: Twiddler´Â ¸ðµç À¯ÇüÀÇ Ãâ·ÂÀ» À§ÇØ Æ®À§µå ÅؽºÆ®¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÅؽºÆ® :: Twiddler. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Daniel Muey
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~dmuey/

ÅؽºÆ® :: Twiddler. ű×


ÅؽºÆ® :: Twiddler. ¼³¸í

Text :: Twiddler´Â ¸ðµç À¯ÇüÀÇ Ãâ·ÂÀ»À§ÇÑ Æ®À§µå ÅؽºÆ®¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Text :: Twiddler´Â ¸ðµç À¯ÇüÀÇ Ãâ·ÂÀ»À§ÇÑ Æ®À§µå ÅؽºÆ®¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÅؽºÆ® :: Twiddler »ç¿ë. MY $ TWIDDLER = TEXT :: TWIDDLER-> NEW (% ¿É¼Ç); # »ç¿ëÀÚ°¡ ¸Ö¾îÁö´Â ¼¼ºÎ »çÇ×¾øÀÌ ¾ÆÁ÷ ½ÇÇàÁßÀÎ # »ç¿ëÀÚ°¡ ¾ÆÁ÷µµ ½ÇÇàÁßÀÎ AGEN Animated Text¸¦ ÀμâÇÕ´Ï´Ù. $ Twiddler-> get_start_twidler ()! ³» ($ wtr, $ rdr); MY $ PID = OPEN3 ($ WTR, $ rdr, $ rdr, @long_command); while () {($ verbose) {print $ _; } else {print $ twiddler-> get_next_twiddler (); }} $ twiddler-> get_start_twiddler ()¸¦ ÀμâÇϽʽÿÀ! $ verbose; 'Æ®À§µå µå'(Áï, ¾Ö´Ï¸ÞÀ̼Ç) ¸Þ½ÃÁö, ¾Æ¸¶µµ ±ä ½ÇÇà ÀÛ¾÷ Áß¿¡ ¶Ç´Â ±ò²ûÇÑ È¿°ú¸¦ À§Çؼ­. ÁÁÀº °ÍÀÔ´Ï´Ù. ÀÌ´Â ¾Ö´Ï¸ÞÀ̼ÇÀÌ ÇÁ·Î¼¼½ºÀÇ ½ÇÁ¦ »óÅ¿¡ ±Ù»çÇÕ´Ï´Ù. ¸í·ÉÀÌ ÀÛ¾÷À» ÅëÇØ ºí·Î¿ì¸µÇÏ´Â °æ¿ì (¿¹ : ¸¹Àº Ãâ·ÂÀÇ ¸¹Àº ÁÙÀÌ ¸Å¿ì ºü¸£°Ô) '¾Ö´Ï¸ÞÀ̼Ç'ÀÌ ¸Å¿ì ºü¸¨´Ï´Ù. ¸í·ÉÀÌ ¿­½ÉÈ÷ ÀÏÇÏ°íÀÖ´Â °æ¿ì ¸í·ÉÀÌ ¸Å¿ì ºü¸¨´Ï´Ù. Ãâ·Â ¼± »çÀÌÀÇ ÇÑ ÁöÁ¡°ú ·¡±×¿¡¼­ ¾Ö´Ï¸ÞÀ̼ÇÀº ¶ÇÇÑ ÀÌ·¸°Ô ´À¸®°ÔÇÕ´Ï´Ù.ÀÌ ¹æ¹ýÀ¸·Î Æ®À§ºí·¯´Â Ãâ·ÂÀÇ ¸ðµç ¼¼ºÎ »çÇ×À» ¼û ±é´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


ÅؽºÆ® :: Twiddler. °ü·Ã ¼ÒÇÁÆ®¿þ¾î