¹è¿ :: Linereader.¹è¿À» ÅëÇØ ÆÄÀÏÀÇ ¾×¼¼½º | |
Áö±Ý ´Ù¿î·Îµå |
¹è¿ :: Linereader. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Bjoern Holsten
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bholsten/
¹è¿ :: Linereader. ű×
¹è¿ :: Linereader. ¼³¸í
¹è¿À» ÅëÇØ ÆÄÀÏÀÇ ¾×¼¼½º Çà Array :: LineReader´Â ¹è¿ÀÇ ¿ä¼Ò¿¡ ÀÇÇØ ÀϺΠÆÄÀÏÀÇ ÁÙ¿¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ ModulÀº Tie :: Array (Tie :: Array ÂüÁ¶)¿¡¼ ¸Þ¼µå¸¦ À¯ÀÔÇÕ´Ï´Ù. ÆÄÀÏÀÇ ÄÜÅÙÃ÷°¡ ÇÊ¿äÇÒ ¶§¸¸ Àбâ Àü¾ß, Áï ¹è¿ÀÇ ¿ä¼Ò¿¡ ¾×¼¼½ºÇÏ´Â °æ¿ì¿¡ ¸¹Àº ¸Þ¸ð¸®¸¦ ÀúÀåÇÕ´Ï´Ù. ¸ðµç ¼±ÀÇ ¿ÀÇÁ¼Â°ú ±æÀÌ´Â ¹è¿À» ¹´Â ÇÑ ¸Þ¸ð¸®¿¡ ÀúÀåµË´Ï´Ù. ±âº» ÆÄÀÏÀÌ ¹ÙÀ̳ʸ® ¸ðµå¿¡¼ Àбâ À§ÇØ ¿·Á ÀÖ½À´Ï´Ù. (¿¹, eOL ½ÃÄö½º, Áï end-of-line ¹× eof-characher, Áï ÆÄÀÏ ³¡ "x1a"¶õ ¹«¾ùÀΰ¡? ÀÐÀº ¹ÙÀÌÆ®´Â Neigther ¹ø¿ªµÇ°Å³ª ¾ï¾ÐµÇÁö ¾ÊÀ½ÀÌ ¾ïÁ¦µË´Ï´Ù. ¶óÀÎÀº EOL ½ÃÄö½º¸¦ Æ÷ÇÔÇÏ°í Æ÷ÇÔÇÕ´Ï´Ù. EOL ½ÃÄö½º´Â "x0dx0a"¶Ç´Â "x0ax0d"¶Ç´Â "x0d"¶Ç´Â "x0a"¶ó°í °¡Á¤ÇÕ´Ï´Ù. Array.Snopsis »ç¿ë ¹è¿ :: Linereader; ³» @lines; # @linesÀÇ ¿ä¼Ò·Î ¸ðµç ÇàÀÇ ³»¿ëÀ» °¡Á®¿É´Ï´Ù. TIE @ Lines, '¹è¿ :: linereader', 'filename'; ½ºÄ®¶ó Àμâ (@ Lines); # ÆÄÀÏÀÇ ÁÙ ¼ö Àμâ $ lines ; ù ¹ø° ÁÙ Àμâ $ LINE ÀÇ ³»¿ë; # ¸¶Áö¸· ÁÙÀÇ ³»¿ë ... # @linesÀÇ ¿ä¼Ò¸¦ ÅëÇØ ¹è¿ ÂüÁ¶·Î ¸ðµç ÁÙÀÇ ¿ÀÇÁ¼Â°ú ÄÜÅÙÃ÷¸¦ °¡Á®¿É´Ï´Ù. Tie @ Lines, 'Array :: Linereader', 'filename', °á°ú => []; ½ºÄ®¶ó Àμâ (@ Lines); # ÆÄÀÏ Àμâ $ LINE -> , ":", $ LINE -> ; # ¿ÀÇÁ¼Â ¹× 5 ȸ¼± Àμâ $ LINES -> , ":", $ LINE -> ; # ¸¶Áö¸· ÁÙÀÇ ¿ÀÇÁ¼Â ¹× ³»¿ë ... # @linesÀÇ ¿ä¼Ò¸¦ ÅëÇØ Çؽà ÂüÁ¶ÀÇ ¿ÀÇÁ¼Â°ú ³»¿ëÀ» °¡Á®¿É´Ï´Ù. ³ØŸÀÌ @lines, 'array :: linereader', 'filename', result => {} ...¿¡ ½ºÄ®¶ó Àμâ (@ Lines); # ÆÄÀÏ Àμâ $ LINE -> {OFFSET}, ":", $ LINE -> {CONTONT}; # ¿ÀÇÁ¼Â ¹× 4 ȸ¼± Àμâ $ LINES -> {OFFSET}, ":", $ LINE -> {CONTONT}; # ¸¶Áö¸· ÁÙÀÇ ¿ÀÇÁ¼Â ¹× ³»¿ë ... ¿ä±¸ »çÇ× : ¡¤ Perl.
¹è¿ :: Linereader. °ü·Ã ¼ÒÇÁÆ®¿þ¾î