PerlのMail::POP3ClientモジュールとGmailの通信例
2022-01-03 19:37:28
I. 前書き
gmailから添付ファイルを一括ダウンロードするプログラムを書いていて、Mail::POP3ClientとMIME::Parserのモジュールを使っています
II. 関連ドキュメント
CPANです。
Mail::POP3Client モジュール
MIME::Parserモジュール
StrawberryPerlモジュールのインストール、アンインストール、閲覧について
III. 実装
use Mail::POP3Client;
use MIME::Parser;
my $U = '[email protected]';
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();
関連
-
プロセス分析によるhttpsリクエストのチャールズベースクローリング
-
Django フレームワークでテンプレートフィルタをカスタマイズする
-
Perlのサブルーチン 学習メモ
-
Perlによるファイル操作の例
-
重複するコンテンツ(重複する行+重複するフィールドの配列)を削除するための perl スクリプトコード
-
コンストラクタでのPerlメソッド使用法入門
-
perlの尖ったブラケット演算子(<>)について
-
[解決済み] Perlで2つの文字列を比較するにはどうしたらいいですか?
-
[解決済み] Perlで浮動小数点数を丸めるには?
-
[解決済み] Perlで「ハッシュの代入の要素数が奇数である」という警告が出る
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
ディレクトリ内のファイルを再帰的に走査するためのPerlスクリプト
-
Perlの時間処理関数 使い方入門
-
ファイル操作に関するPerl学習メモ
-
perlを使ってデータテーブル(mysql)を分割し、データインスタンスを移行する。
-
perl use vars pragma 使用のヒント
-
Perlの単一行コメントと複数行コメントの紹介
-
Perlのハッシュの使い方チュートリアル
-
PerlモジュールData::Dumperを使用した共有例です。
-
ssh ログインの最大数を制限する perl スクリプト (ホワイトリスト対応)
-
[解決済み] Perlで何か悪いことが起こったとき、croak()とdie()のどちらが良いのでしょうか?