-PR-
締切済み

受信メールをサーバーから削除

  • 困ってます
  • 質問No.295409
  • 閲覧数273
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 76% (155/202)

perl で サーバーにある受信メールを削除する
スクリプトをご存知でしたら、ご紹介ください。
FreeBSD サーバーをレンタルで使用してます。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1

消すだけならこんなですね。ホントはSTAT打ってメールの件数を数えるべきですけど。

#!perl

# 全角スペースでインデントしているので要修正
use strict;
use IO::Socket;

use constant HOST_NAME => 'pop3d.example.jp';
use constant USER_NAME => 'your-id';
use constant PASSWORD => 'your-password';


my $pop3 = IO::Socket::INET->new(
  PeerAddr => HOST_NAME,
  PeerPort => 110,
  Proto => 'tcp',
) or die "Can't connect ". HOST_NAME;

$pop3->printf("USER %s\r\n", USER_NAME);
$pop3->getline;
$pop3->printf("PASS %s\r\n", PASSWORD);
$pop3->getline;

my $index = 1;
while (1) {
  $pop3->printf("DELE %d\r\n", $index);
  my $result = $pop3->getline;
  last if $result =~ /^-ERR/;
  ++$index;
}

$pop3->print("QUIT\r\n");
$pop3->getline;
__END__
補足コメント
naru

お礼率 76% (155/202)

ありがとうございます!
てっきり回答がつかないものだと思い、あきらめて
いました。自分で探すしかないか~と。
申し訳ありません、特定のSubject のメールだけ
削除するにはどうすればいいのでしょうか。
(添付ファイルがあった場合も問題なければいいのです
が・・・)
もしお手数でなければ、お答えいただければ幸いです。
回答があってもなくても1、2日で締め切りたいと
思います。m(__)m
投稿日時 - 2002-06-21 15:44:46
お礼コメント
naru

お礼率 76% (155/202)

ご回答いただき、まことにありがとうございました。
投稿日時 - 2002-06-24 18:16:11


このQ&Aで解決しましたか?
関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


開業・独立という夢を持つ人へ向けた情報満載!

ピックアップ

ページ先頭へ