| IRSSI :: SCRIPT :: InfoParser. IRSSI ½ºÅ©¸³Æ®ÀÇ $ ¹öÀü ¹× % IRSSI Çì´õ¿¡¼ Á¤º¸ ÃßÃâ |
Áö±Ý ´Ù¿î·Îµå |
IRSSI :: SCRIPT :: InfoParser. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~shabble/
IRSSI :: SCRIPT :: InfoParser. ű×
IRSSI :: SCRIPT :: InfoParser. ¼³¸í
IRSSI ½ºÅ©¸³Æ®ÀÇ $ ¹öÀü ¹× % IRSSI Çì´õ¿¡¼ Á¤º¸ ÃßÃâ IRSSI :: SCRIPT :: InfoParser´Â $ ¹öÀü ¹× % IRSSI ½ºÅ©¸³Æ®ÀÇ % IRSSI Çì´õÀÇ Á¤º¸¸¦ ÃßÃâÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. IRSSI :: Script :: InfoParser¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ PARSER = IRSSI :: SCRIPT :: InfoParser-> »õ (ÆÄÀÏ => $ ½ºÅ©¸³Æ®); ³» $ version = $ parser-> ¹öÀü; My @Fields = $ Parser-> Metadata_Fields; MY $ METADATA = $ PARSER-> ¸ÞŸ µ¥ÀÌÅÍ; foreach my $ name (@Fields) { "°ªÀº $ metadata -> {$ name}!"; } ¶Ç´Â # ÀúÀÚ Çʵ尡 ½ÇÁ¦·Î Á¤ÀǵǾú´Ù°í °¡Á¤ÇÕ´Ï´Ù. MY $ PARSER = IRSSI :: Script :: InfoParser-> New (file => $ script, split_authors => 0); $ Parser-> HAS_FIELD ( 'ÀúÀÚ')°¡ Á¦¿ÜÇÏ°í´Â ¹ÝȯÇÕ´Ï´Ù. ³» $ authors_string = $ parser-> ¸ÞŸ µ¥ÀÌÅÍ -> {ÀÛ¼ºÀÚ}; MY $ parser = irssi :: script :: Infoparser-> »õ (file => $ script, split_authors => 1); MY $ AUTHORS_ARRAYREF = $ PARSER-> ¸ÞŸ µ¥ÀÌÅÍ -> {ÀÛ¼ºÀÚ}; ¿ä±¸ »çÇ× : ¡¤ Perl.
IRSSI :: SCRIPT :: InfoParser. °ü·Ã ¼ÒÇÁÆ®¿þ¾î