À̸ÞÀÏ :: ConstantContact.

ConstantContact API¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

À̸ÞÀÏ :: ConstantContact. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Adam Rich
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~arich/

À̸ÞÀÏ :: ConstantContact. ű×


À̸ÞÀÏ :: ConstantContact. ¼³¸í

ConstantContact API¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º À̸ÞÀÏ :: ConstantContactÀº Perl¿¡¼­ ConstantContact ´ë·® ÀüÀÚ ¸ÞÀÏ ¸¶ÄÉÆà ¼­ºñ½º¿Í °°Àº ConstantContact ´ë·® ÀüÀÚ ¸ÞÀÏ ¸¶ÄÉÆà ¼­ºñ½º¿Í °°Àº Perl ¸ðµâÀÔ´Ï´Ù.ÀÌ ¸ðµâÀ» »ç¿ëÇϱâ Àü¿¡ ConstantContact ȸ»ç¿Í ½Åû¼­¸¦ µî·ÏÇؾßÇÕ´Ï´Ù. ÀÌ¿ë ¾à°ü ¹× API ¾×¼¼½º Å°¸¦ ½ÅûÇϽʽÿÀ. ÀÌ Å°¸¦ ConstantContact »ç¿ëÀÚ À̸§°ú ¾ÏÈ£¿Í ÇÔ²² »ç¿ëÇÏ¿© ¼­ºñ½º¿Í »óÈ£ ÀÛ¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. À̸ÞÀÏ :: ConstantContact »ç¿ë; ³» $ apikey = 'abcdefg1234567'; ³» $ username = 'mycompany'; ³» $ Password = 'TopSecret'; MY $ CC = »õ À̸ÞÀÏ :: ConstantContact ($ APIKEY, $ USERNAME, $ ºñ¹Ð¹øÈ£); # ±âÁ¸ ¿¬¶ôó ¸ñ·ÏÀ» ¿­°ÅÇÏ´Â ¹æ¹ý : my @all_lists = $ cc-> lists (); foreach my $ list (@all_lists) {print "¸ñ·Ï :", $ list -> {name}, "\ n"; } # »õ ¿¬¶ôó ¸ñ·ÏÀ» ¸¸µå´Â ¹æ¹ý : My $ New_List = $ CC-> Newlist ( 'Japh Newsletter', {sortOrder => '70', displayonsignup => 'false', optindefault => 'false',}); # »õ·Î¿î ¿¬¶ôó¸¦ Ãß°¡ÇÏ´Â ¹æ¹ý : MY $ NEW_CONTACT = $ CC-> NewContact ('jdoe@example.com ', {firstname =>'John ', LastName =>'Doe ', CompanyName =>'JD Industries ') => ,}); # ±âÁ¸ ¿¬¶ôó¸¦ ¼öÁ¤ÇÏ´Â ¹æ¹ý : MY $ OLD_CONTACT = $ CC-> getContact ('yogi@example.com '); Àμâ "Yogi´Â ´õ ÀÌ»ó ÀÛµ¿ÇÏÁö ¾Ê½À´Ï´Ù.", $ old_contact -> {companyname}, "\ n"; $ old_contact -> {companyname} = 'ACME CORP'; # ¸ñ·Ï ±¸¼º¿ø Àμâ "¸ñ·Ï : \ N"ȸ¿ø; foreach my $ listid (@ {$ old_contact -> {contactlist}}) {my $ listobj = $ cc-> getList ($ listid); $ LISTOBJ -> {NAME}, "\ n"; } # ¸ñ·Ï ±¸¼º¿ø °ü¸® $ oold_contact-> removeFromlist ($ some_list_id); $ old_contact-> clearalllists (); $ old_contact-> addtolist ($ new_list); $ old_contact-> save (); # ¸ðµç ¹Ì·¡ÀÇ À̸ÞÀÏÀ» ¼±ÅÃÇϽʽÿÀ $ OLD_CONTACT-> OPTOUT (); $ old_contact-> save (); # ÃÖ±Ù È°µ¿À» Ç¥½ÃÇϽʽÿÀ. @recent_activities = $ CC-> È°µ¿ (); Foreach My $ È°µ¿ (@Recent_Activities) {Print "ÃÖ±Ù È°µ¿À» ¹ß°ßÇÏ°í, type =", $ È°µ¿ -> {type}, "status =", $ È°µ¿ -> {status}, "\ n"; } ¿ä±¸ »çÇ× : ¡¤ Perl.


À̸ÞÀÏ :: ConstantContact. °ü·Ã ¼ÒÇÁÆ®¿þ¾î