| ÆÄÀÏ :: µ¥ÀÌÅÍ FILE :: DATA´Â ÆÄÀÏ µ¥ÀÌÅÍÀÇ ÀÎÅÍÆäÀ̽º·Î PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: µ¥ÀÌÅÍ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Richard Foley
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rfoley/Perlbug-2.93/Perlbug/Format.pm
ÆÄÀÏ :: µ¥ÀÌÅÍ Å±×
ÆÄÀÏ :: µ¥ÀÌÅÍ ¼³¸í
ÆÄÀÏ :: µ¥ÀÌÅÍ´Â ÆÄÀÏ µ¥ÀÌÅÍÀÇ ÀÎÅÍÆäÀ̽º·Î Perl ¸ðµâÀÔ´Ï´Ù. file :: data´Â ÆÞ½º µ¥ÀÌÅÍ¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º·Î Perl ¸ðµâÀÔ´Ï´Ù. ÆÄÀÏÀÇ ¾×¼¼½º¸¦ Æí¸®ÇÏ°Ô Àд °£´ÜÇÑ regex interface.note¸¦ Æ÷ÇÔÇÏ¿© ÆÄÀÏÀ» ÀÐ°í ¾²´Â Æí¸®ÇÑ ÅëÈ ÁýÇÕÀ¸·Î ÆÄÀÏÀ» »ç¿ëÇϱâ Àü¿¡ ÀÌ ¸ðµâ! »õ·Î¿î () °³¿ä »ç¿ë ¾ö°ÝÇÑ; ÆÄÀÏ :: µ¥ÀÌÅ͸¦ »ç¿ëÇϽʽÿÀ. MY $ O_DAT = ÆÄÀÏ :: µ¥ÀÌÅÍ -> »õ ( './T / ¿¹'); $ o_dat-> ¾²±â ( "¿ÏÀüÇÑ ÆÄÀÏ ³»¿ë"); $ o_dat-> prepend ( "ù ¹ø° ¸°³Ù"); # LINE 0 $ O_DAT-> APPEND (¿ø·¡ µÎ ¹ø° (ÃÖÁ¾) ¸°³Ù "); $ o_dat-> insert (2, "»õ·Î¿î µÎ ¹ø° ¸®³Ù"); # Inc. ¿µ! $ o_dat-> ¹Ù²Ù±â ( '¼±', '¼±'); $ O_DAT-> Àбâ; ¶Ç´Â ¾Æ¸¶µµ ´õ ÁøÁöÇÏ°Ô : -} MY $ O_SGM = FILE :: DATA-> NEW ( './ sgmlfile)); "»õ SGML µ¥ÀÌÅ͸¦ ÀμâÇϽʽÿÀ. $ o_sgm-> ¹Ù²Ù±â ( '\ s * (((?) *) s *', qq | key ="val "|,) $ o_sgm; ¸Þ¼Òµå¿Í exampless.ImportAntLowerCase¸¦ ÂüÁ¶ÇϽʽÿÀ. ¸Þ¼µå È£ÃâÀº °´Ã¼ ÀÚü¸¦ ¹ÝȯÇϹǷΠÅëȸ¦ üÀÎ ÇÒ ¼ö ÀÖ½À´Ï´Ù. MY $ O_OBJ = $ O_DAT-> Àбâ; #! ÀдÙ; #! ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: µ¥ÀÌÅÍ °ü·Ã ¼ÒÇÁÆ®¿þ¾î