ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛÅؽºÆ® :: ½ºÅ©·¡ÆÛ´Â ±¸Á¶È µÈ ÅؽºÆ®ÀÇ ±¸Á¶È µÈ µ¥ÀÌÅ͸¦ Æ÷ÇÔÇÕ´Ï´Ù. | |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛ ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Chris McEwan
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mcewan/Text-Embed-0.03/lib/Text/Embed.pm
ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛ Å±×
ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛ ¼³¸í
ÅؽºÆ® :: ½ºÅ©·¡ÆÛ¿¡´Â ±¸Á¶È µÈ ÅؽºÆ®¿¡¼ ±¸Á¶È µÈ µ¥ÀÌÅÍ°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. ÅؽºÆ® :: ½ºÅ©·¡ÆÛ´Â (un) ±¸Á¶È µÈ text.synopsis¿¡¼ ±¸Á¶È µÈ µ¥ÀÌÅ͸¦ Æ÷ÇÔÇÕ´Ï´Ù. ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛ; LWP :: SIMPLE; µ¥ÀÌÅÍ :: Dumper; # # 1. ÅÛÇø´ ¹× ¼Ò½º ÅؽºÆ® °¡Á® ¿À±â # MY $ TMPL = ÅؽºÆ® :: ½ºÅ©·¹ÀÌÆÛ -> SLURP (* DATA); ³» $ src = get ( 'http://search.cpan.org/recent') || ´ÙÀÌ $!; # # 2. ¼Ò½º # ³» $ obj = text :: scraper-> new (tmpl => $ tmpl); MY $ DATA = $ obj-> ½ºÅ©·¦ ($ src); # 3. Á¤¸» ¹º°¡ Á¤¸» ±ò²ûÇÏ°Ô ±ò²ûÇÏ°Ô ... (excercisise) # Àμâ "ÃֽŠÁ¦Ãâ :", $ data -> {Á¦Ãâ} {name}, "nn"; Àμâ "½ºÅ©·¹ÀÌÆÛ ¸ðµ¨ : n", ´ýÆÛ ($ obj), "nn"; "±¸¹® ºÐ¼® µÈ ¸ðµ¨ : N", Dumper ($ µ¥ÀÌÅÍ), "Nn"À» ÀμâÇϽʽÿÀ. __data__
tmpl var date_string?> / ºò> tmpl stuff post_nav?> |
|