| www :: Google :: API :: Base. Perl Ŭ¶óÀ̾ðÆ®°¡ Google Base API |
Áö±Ý ´Ù¿î·Îµå |
www :: Google :: API :: Base. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- John Cappiello
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.wikalong.org/
www :: Google :: API :: Base. ű×
www :: Google :: API :: Base. ¼³¸í
Perl Ŭ¶óÀ̾ðÆ®´Â Google Base API·Î Á¦°øÇÕ´Ï´Ù www :: Google :: API :: Base´Â Google Base API.synopsis¿¡ ´ëÇÑ Perl Ŭ¶óÀ̾ðÆ®°¡ www :: Google :: API :: Base; MY $ FILE_CONF = LoadFile ($ env {home}. '/. gapi'); ³» $ api_key = $ env {gapi_key}; ³» $ api_user = $ env {gapi_user}; MY $ API_PASS = $ ENV {GAPI_PASS}; MY $ GBASE = www :: Google :: API :: Base-> new ({auth_type => programmaticlogin ', api_key => $ api_key, api_user => $ api_user, api_pass => $ api_pass}, {}); MeSTROMESERT $ INSERT_ENTRY = $ GBASE-> insert ( 'http://www.google.com/base/feeds/itemtypes/en_us/recipes', {-title => "jingxian chicken ', -content =>"electable sichuan specialty ", -link => , main_ingredient => , ¼ºù => 5,},); $ new_id = $ insert_entry-> id; ¾÷µ¥ÀÌÆ® $ update_entry = $ gbase-> update ($ new_id, {-title => "jingxianÀÇ checking, -content =>"delectable sichuan specialty ", -link => , main_ingredient = > , ¼ºù => 15,},); My $ DELETE_RESPONSE; eval {$ delete_response = $ gbase-> »èÁ¦ ($ new_id); }; if ($ @) {my $ e = $ @;; DIE e-> status_line; # http :: response} $ delete_response-> ÄÚµå == 200ÀÌ¸é ¼º°øÀûÀ¸·Î »èÁ¦µÇ¾ú½À´Ï´Ù. add ³» $ select_inserted_entry°¡ Äõ¸®¸¦ Áö¿øÇÕ´Ï´Ù. {$ select_inserted_entry = $ gbase-> ¼±Åà ($ new_id);} ; ($ @) {MY $ e = $ @; die $ e-> status_line; # http :: response} ¿ä±¸ »çÇ× : ¡¤ Perl.
www :: Google :: API :: Base. °ü·Ã ¼ÒÇÁÆ®¿þ¾î