| www :: Odeon. www.odeon.co.uk À¥ »çÀÌÆ®¸¦ ½ºÅ©¸° ½ºÅ©·¦ÇÏ´Â °£´ÜÇÑ API |
Áö±Ý ´Ù¿î·Îµå |
www :: Odeon. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~iaint/
www :: Odeon. ű×
www :: Odeon. ¼³¸í
www.odeon.co.uk À¥ »çÀÌÆ®¸¦ ½ºÅ©¸° ½ºÅ©·¦ÇÏ´Â °£´ÜÇÑ API www :: OdeonÀº ¿µ±¹ÀÇ Odeon Cinemas¿¡¼ ¿µÈ¿¡ ´ëÇÑ µ¥ÀÌÅÍ¿¡ °üÇÑ µ¥ÀÌÅÍ¿¡ ´ëÇÑ µ¥ÀÌÅ͸¦ °Ë»ö ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. À¯ÀÏÇÑ ÀüÁ¦ Á¶°ÇÀº LWP :: SIMPLE - WEB¿¡ ´ëÇÑ ¿¬°áÀÔ´Ï´Ù!ÀÌ ¸ðµâÀ» ¿ÏÀüÈ÷ »ç¿ëÇÏ·Á¸é Odeon UK°¡ ¿µÈ Á¤º¸¸¦ ±¸Á¶ÇÏ´Â °èÃþ ±¸Á¶¸¦ ÀÌÇØÇؾßÇÕ´Ï´Ù. ±¹°¡´Â Áö¿ªÀ¸·Î ³ª´µ¸ç °¢ Áö¿ª¿¡´Â ¿©·¯ ¿µÈ°üÀÌ Æ÷ÇԵǾî ÀÖÀ¸¸ç °¢ ½Ã³×¸¶´Â ¿©·¯ ¹ø ¿©·¯ ¹ø ¿©·¯ ¹ø º¸¿©ÁÝ´Ï´Ù. ÀÌ ±¸Á¶´Â ¸ðµâ API.synopsis # ÀýÂ÷ ÀÎÅÍÆäÀ̽º »ç¿ë WWW :: Odeon; @Regions = get_regions (); ³» @cinemas = get_cinemas ($ regions ); ³» $ details = get_details ($ cinemas ); my @dates = Å° % $ ¼¼ºÎ Á¤º¸; Foreach My $ Day (@Dates) {my @films = Å° % {$ details -> {$ day}}; foreach my $ film (@Films) {while (my ($ showing, $ °¡¿ë¼º) = °¢ % {$ details -> {$ day} -> {$ film}}) {Àμâ "Çʸ§ '$ film'Àº $ °¡¿ë¼ºÀÔ´Ï´Ù. $ ÇÏ·ç¿¡ $ shows. ";}}} # °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º www :: odeon (); My $ Odeon = New www :: odeon; $ Odeon-> Cache_Time (30); My $ regions = $ Odeon-> Áö¿ª; My $ Cinemas = $ Odeon-> Cinemas ($ regions -> ); My $ details = $ Odeon-> ¼¼ºÎ »çÇ× ($ cinemas -> ); ½Ã³×¸¶ À̸§À» ¾Ë°íÀÖ´Â °æ¿ì Çʸ§ µ¥ÀÌÅÍ¿¡ Á÷Á¢ ¾×¼¼½ºÇÏ´Â °Í " Odeon Leicester Square¿¡¼ ´ÙÀ½ ¿µÈ°¡ ÀÖ½À´Ï´Ù. "Àμ⠰¡ÀÔ (" ", $ Odeon-> ¿µÈ ( 'Leicester square')); Àμâ"Odeon YorkÀÇ ´ÙÀ½ ³¯Â¥¿¡ ´ëÇÑ Á¤º¸°¡ ÀÖ½À´Ï´Ù. "Àμ⠰¡ÀÔ (" ", $ Odeon-> ³¯Â¥ ( 'york')) @showtimes = $ Odeon-> °¡¿ë¼º ($ ½Ã³×¸¶, $ Çʸ§, $ day); ¿ä±¸ »çÇ× : ¡¤ Perl.
www :: Odeon. °ü·Ã ¼ÒÇÁÆ®¿þ¾î