IRSSI :: SCRIPT :: InfoParser.

IRSSI ½ºÅ©¸³Æ®ÀÇ $ ¹öÀü ¹× % IRSSI Çì´õ¿¡¼­ Á¤º¸ ÃßÃâ
Áö±Ý ´Ù¿î·Îµå

IRSSI :: SCRIPT :: InfoParser. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Tom Feist
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î