| ºÐ¼® :: FixedRecord. °íÁ¤ Æø ·¹Äڵ带À§ÇÑ °´Ã¼ ÁöÇâ Æļ |
Áö±Ý ´Ù¿î·Îµå |
ºÐ¼® :: FixedRecord. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jesse Luehrs
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~doy/
ºÐ¼® :: FixedRecord. ű×
ºÐ¼® :: FixedRecord. ¼³¸í
Parse :: FixedRecord´Â Æļ¸¦ Á¤ÀÇÇÏ´Â °£´ÜÇÑ µµ¸ÞÀΠƯÁ¤ ¾ð¾î (DSL)°¡ÀÖ´Â MooseÀÇ Perl ÇÏÀ§ Ŭ·¡½ºÀÔ´Ï´Ù. STR¿¡¼ °¿äÇÏ´Â ÇÑ ¿øÇÏ´Â À¯ÇüÀÇ Á¦ÇÑ Á¶°ÇÀ» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. µ¿ÀÏÇÑ Çü½ÄÀ¸·Î Çà °´Ã¼¸¦ Ãâ·ÂÇÏ·Á¸é ¿À¹ö·Îµå°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù. PPARSE :: FixedRecord´Â Box¿¡¼ ²¨³» Áö ±â°£°ú DateTime Á¦¾àÀ» Á¦°øÇÕ´Ï´Ù. ÀÌ¿Í °°Àº µ¥ÀÌÅÍ°¡ ÀÖ½À´Ï´Ù. 2009-12-08 | 01:05 Mary Blige | 2009-12-08 | 00 : 30 Æļ ¸¸µé±â : ÆÐÅ°Áö My :: Parser; ºÐ¼® :: FixedRecord; # ¾ö°ÝÇÏ°í °æ°í Ä÷³À» °¡Á®¿É´Ï´Ù. _ _name => width => 4, isa => 'str'; ±×¸² ''; column last_name => width => 6, isa => 'str'; ±×¸² | ' ¿ ³¯Â¥ => width => 10, isa => 'date'; ±×¸² | ' ¿ Áö¼Ó ½Ã°£ => width => 5, isa => 'duration'; 1; Äڵ忡¼ : ³» :: Æļ¸¦ »ç¿ëÇϽʽÿÀ. while (my $ line =) {eval {my $ object = my :: parser-> Parse ($ line); $ object-> first_name; $ $ °´Ã¼ -> duration-> in_units ( 'mins')> 60 ÀÎ °æ¿ì do_something (); }; } Á¦Ç°ÀÇ È¨ÆäÀÌÁö
ºÐ¼® :: FixedRecord. °ü·Ã ¼ÒÇÁÆ®¿þ¾î