| ½Ã°£ :: eLapse. ½Ã°£ :: eLapse´Â ÀÛ¾÷ Áß¿¡ Æí¸®ÇÏ°Ô ½Ã°£À» ¸ð´ÏÅ͸µÇϱâÀ§ÇÑ Perl È®ÀåÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
½Ã°£ :: eLapse. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Scott R. Godin
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sgodin/Time-Elapse-1.2402/Elapse.pm
½Ã°£ :: eLapse. ű×
½Ã°£ :: eLapse. ¼³¸í
½Ã°£ :: °æ¸éÀº ÀÛ¾÷ Áß¿¡ Æí¸®ÇÏ°Ô ½Ã°£À» ¸ð´ÏÅ͸µÇϱâÀ§ÇÑ PERL È®ÀåÀÔ´Ï´Ù. TIME :: ELAPSE´Â ÀÛ¾÷ Áß¿¡ Æí¸®ÇÏ°Ô ½Ã°£À» ¸ð´ÏÅ͸µÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. ½Ã°£ : ½Ãµµ´Â ¸Å¿ì °£´ÜÇÑ Å¬·¡½ºÀÔ´Ï´Ù. ÇϳªÀÇ ¹æ¹ýÀÌÀÖ´Â ¸Å¿ì °£´ÜÇÑ Å¬·¡½ºÀÔ´Ï´Ù. °¡º¯Àû ÀÎ °ÍµéÀº '³ú¸¦ ¸Ô´Â °Í'ÀÌ ¹«¾ùÀ̵簣¿¡ ´Ù¶÷Áã ³»ºÎÀûÀ¸·Î °³ÃֵǾúÀ¸¸ç (°ø°£ ¿Ü°èÀÎÀÌ ¿µÈ¿¡¼ÇÏ´Â °ÍÀ¸·Î ¾Ë·ÁÁ® ÀÖÀ½)À̸ç ÇöÀçÀÇ ½Ã°£À» ÀúÀåÇÕ´Ï´Ù. ±×·± ´ÙÀ½ º¯¼öÀÇ °ª¿¡ ¾×¼¼½º ÇÒ ¶§¸¶´Ù '¿Ü°èÀÎ'Àº º¯¼ö¸¦ ÃʱâÈ ÇÑ ½ÃÁ¡°ú Àμâ ÇÒ ¶§ÀÇ Â÷µîÀ» Çü½ÄÈÇÏ°íÀ̸¦ ÀμâÇÏ°í (º¯¼ö°¡ º¸À¯ ÇÒ ¼öÀÖ´Â °ª°ú ÇÔ²²) ¹ÝȯÇÕ´Ï´Ù. :-) Àμâ ÇÒ ¶§¸¶´Ù º¯¼ö ÀÚü ¾È¿¡ ¼û°ÜÁø ¸Þ¼µå°¡ ¼û°ÜÁø ¸Þ¼µå°¡ ¸®ÅÏ µÈ ¾÷µ¥ÀÌÆ® µÈ Â÷µîÀ» ¾ò½À´Ï´Ù. Ãâ·ÂÀº HH : mm : ss.000000 ( Ãâ·Â) ½Ã°£ ³¶ºñ : 00 : 00 : 02.003764 Ãß°¡ ¿¹Á¦ CodeYou´Â ÆÄÀÏÀÇ Net :: FTP ´Ù¿î·Îµå ·çÇÁ¸¦ »ç¿ëÇÏ¿© °¢ ÆÄÀÏÀÇ ´Ù¿î·Îµå¿¡ ´ëÇØ °æ°ú µÈ ½Ã°£À» Ç¥½ÃÇÏ´Â µ¿¾ÈÀ̸¦ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù. foreach my $ file (@FILES_TO_Download) {# extract $ file # .... ½Ã°£ : eLapse-> lapse (my $ now = "$ localfile ´Ù¿î·Îµå"); $ ftp-> get ($ file, $ localfile) ¶Ç´Â carp ( "### $ file! $!"ÇÒ ¼ö ¾øÀ½) ¹× ´ÙÀ½; Àμâ "¿Ï·á. °æ°ú : $ nown"; # ...} ¿©·¯ ¼Ò½º¿¡¼ ¸¹Àº µ¥ÀÌÅ͸¦ ó¸® ÇÒ ¶§ À¯¿ëÇÑ Æ®¸¯ ÀÏ ¼öµµ ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
½Ã°£ :: eLapse. °ü·Ã ¼ÒÇÁÆ®¿þ¾î