【 スクリプト改造依� ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
313:nobodyさん 07/01/20 10:52:45 製作期限　1週間程度であれば助かります。 サイトで配布されていないものなので、ソースを記載します。 #!/usr/bin/perl use strict; use Net::POP3; my $user = 'USER@DOMAIN.com'; my $pass = 'PASS'; my $pop3 = new Net::POP3('localhost'); $pop3->login($user, $pass) or &error('cant_login'); my $ref_mlist = $pop3->list; print "Content-type: text/plain\n\n"; foreach (keys %$ref_mlist) { $pop3->delete($_); print "$_ : DELETED\n"; } $pop3->quit; print "OK.\n"; exit; sub error { print "Content-type: text/plain\n\n"; print join('::', @_); exit; } 314:nobodyさん 07/01/20 13:32:25 それを作った本人に頼まない理由は？ 315:nobodyさん 07/01/20 16:07:12 WhKX+TyR >>314 携帯から失礼します 理由はこれをサンプルにやってみろと渡されました 自分でやると言った手前頼めないのです 2週間頑張りましたが、だめだっのでたのみました次第です

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4116日前に更新/279 KB
担当:undef