| ÁøÇà¸ð»ç ProgressMonitor´Â Àå±â ½ÇÇà ÀÛ¾÷ÀÌ ¾î¶»°Ô ÁøÇàµÇ´ÂÁö¿¡ ´ëÇÑ Çǵå¹éÀ» Á¦°øÇϱâÀ§ÇÑ À¯¿¬ÇÏ°í ±¸¼º °¡´ÉÇÑ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÁøÇà¸ð»ç ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Kenneth Olwing
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~knth/ProgressMonitor-0.11/lib/ProgressMonitor.pm
ÁøÇà¸ð»ç ű×
ÁøÇà¸ð»ç ¼³¸í
ProgressMonitor´Â Àå±â ½ÇÇà ÀÛ¾÷ÀÌ ¾î¶»°Ô ÁøÇàµÇ´ÂÁö¿¡ ´ëÇÑ Çǵå¹éÀ» Á¦°øÇϱâÀ§ÇÑ À¯¿¬ÇÏ°í ±¸¼º °¡´ÉÇÑ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. ProgressMonitor´Â Àå±â ½ÇÇà ÀÛ¾÷ÀÌ ¾î¶»°Ô ÁøÇàµÇ´ÂÁö¿¡ ´ëÇÑ Çǵå¹éÀ» Á¦°øÇϱâÀ§ÇÑ À¯¿¬ÇÏ°í ±¸¼º °¡´ÉÇÑ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù .Synopsis´Â ¾ö°ÝÇÑ »ç¿ëÀ» »ç¿ëÇÕ´Ï´Ù. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. »ç¿ë ½Ã°£ :: QW (USLEEP)¸¦ °í¿ëÇÕ´Ï´Ù. ÁøÇà ¸ð´ÏÅÍ :: stringify :: tostream; ÁøÇà¸ð :: Stringify :: Çʵå :: ¹Ù; grogressMonitor :: stringify :: Çʵå :: °íÁ¤; ÁøÇà ¸ð´ÏÅÍ :: Stringify :: Çʵå :: ¹éºÐÀ²; SUB SONTLASK {MY $ MONITOR = SHIFT; $ ¸ð´ÏÅÍ -> prepare (); $ ¸ð´ÏÅÍ -> ½ÃÀÛ (100); (1 .. 40) {USLEEP (100_000); $ ¸ð´ÏÅÍ -> ƽ (1); } anothertask ($ monitor-> submonitor ({parentTicks => 20})); (1 .. 40) {USLEEP (100_000); $ ¸ð´ÏÅÍ -> ƽ (1); } $ ¸ð´ÏÅÍ -> end (); } sub othertask {my $ monitor = shift; $ ¸ð´ÏÅÍ -> prepare (); $ ¸ð´ÏÅÍ -> ½ÃÀÛ (3000); (1 .. 3000) {USLEEP (1_000); $ ¸ð´ÏÅÍ -> ƽ (1); } $ ¸ð´ÏÅÍ -> end (); } Sometask (ProgressMonitor :: Stringify :: tostream-> new ({{fields => }))); ¿ä±¸ »çÇ× : ¡¤ Perl.
ÁøÇà¸ð»ç °ü·Ã ¼ÒÇÁÆ®¿þ¾î