| www :: Gmail. www :: GmailÀº Google Mail (Gmail)¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
www :: Gmail. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~xantus/POE-Component-Proxy-MSN-0.02/lib/POE/Component/Proxy/MSN.pm
www :: Gmail. ű×
www :: Gmail. ¼³¸í
www :: GmailÀº Google Mail (Gmail)¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. www :: GmailÀº Google Mail (Gmail)¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù (Gmail) .Synopsis www :: Gmail; $ obj = www :: gmail-> new (username => "username =>"username ", password =>"password ", cookies => {autosave => 1, file =>"./gmail.cookie ",},); ³» $ ret = $ obj-> login (); if ($ ret == -1) {print "password password enchorectn"; } ELSIF ($ ret == 0) {print "·Î±×ÀÎ ÇÒ ¼ö ¾ø½À´Ï´Ù $ obj -> {error} n"; Ãⱸ; } my @list = $ obj-> get_message_list ( '¹ÞÀº ÆíÁöÇÔ'); #¹ÞÀº ÆíÁöÇÔ¿¡¼ »õ ¸Þ½ÃÁö¸¦ °è»êÇϽʽÿÀ. $ new_msgs = 0; ³» $ i (0 .. $ # list) {$ new_msgs + = $ list -> ; # count ÀÐÁö ¾ÊÀº Ç÷¡±×} "±ÍÇÏ´Â $ New_msgs ±ÍÇÏÀǹÞÀº ÆíÁöÇÔ¿¡ »õ·Î¿î ¸Þ½ÃÁö°¡ ÀÖ½À´Ï´Ù"; my @contacts = $ obj-> get_contact_list (); "´ç½ÅÀÌ °¡Áö°íÀÖ´Â"ÀμâÇϽʽÿÀ. (@ ¿¬¶ôó). "¿¬¶ôó"; My $ Gmail = 0; ³» $ i (0 .. $ # ¿¬¶ôó) {$ Gmail + = ($ ¿¬¶ôó -> = ~ m / gmail.com $ / i); } "$ GmailÀÌ Gmail Addressn"À» ÀμâÇÕ´Ï´Ù. $ obj-> ·Î±× ¾Æ¿ô (); ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
www :: Gmail. °ü·Ã ¼ÒÇÁÆ®¿þ¾î