| ÆÄÀÏ :: Slurp :: Unicode. ¹®ÀÚ ÀÎÄÚµù Áö¿øÀÌÀÖ´Â ¿ÏÀüÇÑ ÆÄÀÏ Àбâ / ¾²±â |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: Slurp :: Unicode. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- David Caldwell
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~david/
ÆÄÀÏ :: Slurp :: Unicode. ű×
ÆÄÀÏ :: Slurp :: Unicode. ¼³¸í
¹®ÀÚ ÀÎÄÚµù Áö¿øÀÌÀÖ´Â Àüü ÆÄÀÏ Àбâ / ¾²±â file :: slurp :: Unicode´Â ÆÄÀÏ :: Slurp¸¦ ·¡ÇÎÇÏ°í ÀÎÄÚµù ¸Å°³ º¯¼ö¸¦ ÅëÇØ ¹®ÀÚ ÀÎÄÚµù Áö¿øÀ» Ãß°¡ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÆÄÀÏ :: Slurp¿Í µ¿ÀÏÇÑ ¸Å°³ º¯¼ö¸¦ ¸ðµÎ ¼öÇàÇÏ´Â µ¿ÀÏÇÑ ±â´ÉÀ» ³» º¸³À´Ï´Ù. ±âº» »ç¿ëÀ» À§ÇØ ÆÄÀÏ :: Slurp ¼³¸í¼¸¦ ÂüÁ¶ÇϽʽÿÀ. Â÷ÀÌÁ¡ ¸¸ out.synopsis ÆÄÀÏ :: Slurp :: Unicode; MY $ TEXT = READ_FILE ( 'ÆÄÀÏ À̸§', ÀÎÄÚµù => 'UTF8'); ³» @lines = read_file ( 'filename'); # UTF8Àº ÀÎÄÚµùÀ̾ø´Â °æ¿ì °¡Á¤µË´Ï´Ù. write_file ( 'filename', {encoding => 'utf16'}, @lines); # ÆÄÀÏ :: slurp :: write_file (¿¹ : ÀÎÄÚµù ¾øÀ½) : write_file ( 'filename', {encoding => 'binary'}, @ lines); ÆÄÀÏ :: Slurp :: À¯´Ï ÄÚµå QW (Slurp); MY $ TEXT = SLURP ( 'ÆÄÀÏ À̸§', ÀÎÄÚµù => 'LATIN1'); ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: Slurp :: Unicode. °ü·Ã ¼ÒÇÁÆ®¿þ¾î