主頁(yè) > 知識(shí)庫(kù) > Perl的Mail::POP3Client模塊和Gmail通信實(shí)例

Perl的Mail::POP3Client模塊和Gmail通信實(shí)例

熱門(mén)標(biāo)簽:上海企業(yè)外呼系統(tǒng) 智能機(jī)器人電銷神器 電話機(jī)器人哪里有賣 河南虛擬外呼系統(tǒng)公司 萬(wàn)利達(dá)百貨商場(chǎng)地圖標(biāo)注 熱門(mén)電銷機(jī)器人 okcc外呼系統(tǒng)怎么調(diào)速度 外呼電信系統(tǒng) 惠州龍門(mén)400電話要怎么申請(qǐng)

一、前言

最近在寫(xiě)一個(gè)從gmail批量下載附件的程序,用到了 Mail::POP3Client 和 MIME::Parser 2 個(gè)模塊

二、相關(guān)文檔

CPAN:
Mail::POP3Client模塊
MIME::Parser模塊
StrawberryPerl模塊的安裝、卸載與查看

三、實(shí)現(xiàn)

use Mail::POP3Client;
use MIME::Parser;
 
my $U = 'User.Name@gmail.com';
my $P = 'uSeR.pAsSwORd';
my $X = new MIME::Parser;
$X -> output_dir('C:\\download');  #directory to save attachment
 
my $G = Mail::POP3Client -> new (
      USER    => $U,
      PASSWORD  => $P,
      HOST    => 'pop.gmail.com',
      PORT    => 995,
      USESSL   => 'true') or die "Can't Connect The Server.\n";
 
for $i (1 .. $G->Count())
{
  my $C = $G->HeadAndBody($i);
  my $R = $X->parse_data($C);
}
$G->Close();

標(biāo)簽:秦皇島 合肥 綿陽(yáng) 周口 周口 淮安 綏化 百色

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Perl的Mail::POP3Client模塊和Gmail通信實(shí)例》,本文關(guān)鍵詞  Perl,的,Mail,POP3Client,模塊,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Perl的Mail::POP3Client模塊和Gmail通信實(shí)例》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于Perl的Mail::POP3Client模塊和Gmail通信實(shí)例的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章