当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 13 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 接收邮件附件的脚本。perl。
帖子发表于 : 2008-07-12 19:05 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
...大部分从这抄的
http://topic.csdn.net/u/20070213/16/acb ... 2073054200

需要安装模块
代码:
sudo cpan MIME::Parser


代码:
#!/usr/bin/perl -w

use strict;
use Net::POP3;
use MIME::Parser;
use MIME::Entity;

my $mailserver = "pop.163.com";
my $username   = "aaaaaaaaaaaaaaaaaaaaaaaa";
my $password   = "vvvvvvvvvvvvvvvvvvvvv";

if ($ARGV[0] && ($ARGV[0] =~ /--help|-h/i )) {
printf <<HELP;
cmail: Check mail and download the parts.
Usage:
    cmail [OPTION]
Options:
    NONE       show all mails and download all parts in current directory.
    -c          show the total number of email.
    -v          show all mails.
    -d          delete all mails.
    -h, --help      show this message.

HELP
    exit 0;
};

my $pop     = Net::POP3->new($mailserver, Timeout => 60) or die "Failed to connect to $mailserver\n";
my $tot_msg = $pop->login($username, $password)          or die "Failed to authenticate $username\n";
my $all     = $pop->list                                 or die "Failed to retreive list of avaible mseages\n";
my $parser  = MIME::Parser->new;

printf("\n   You are $tot_msg messages.\n\n");
printf("————————————————————————————————————————————————\n");

if ($ARGV[0] && ($ARGV[0] eq '-c' )) {
   $pop->quit;
   exit 0;
}

if ($ARGV[0] && $ARGV[0] eq '-d') {
   my $msgnums = $pop->list;
   foreach my $msgnum (keys %$msgnums) {
      $pop->delete($msgnum);
   }
   $pop->quit;
   exit 0;
}

foreach my $num (keys %$all) {
   my $msg     = $pop->get($num);
   my $entity  = $parser->parse_data($msg);

   $entity->head->decode;
   print "Subject: ",$entity->head->get('Subject');
   print "From:    ",$entity->head->get('From');
   print "To:      ",$entity->head->get('To');
   print "Date:    ",$entity->head->get('Date');
   print "MIME:    ",$entity->mime_type,"\n";
   print "Parts:   ",scalar $entity->parts,"\n";
   for my $part ($entity->parts) {
           print "\t ",$part->mime_type,"\t ",$part->bodyhandle,"\n";
   }

   my $numparts = $entity->parts;
   if (!$numparts) {
      my $body    = $entity->bodyhandle();
      my $content = join("", $body->as_lines);
      $content    = $content;
      print "Text:\n";
      print $content,"\n";
      $body->purge;
   }
   else {
      my $part_ent = $entity-> parts(0);
      if ($part_ent->parts) {
         $part_ent = $part_ent->parts(0);
      }
      my $body     = $part_ent->bodyhandle();
      my $content  = join("", $body->as_lines);
      $content     = $content;
      print "Text:\n";
      print $content,"\n";
      printf "------------------------------------------------\n";
   }

   if ($ARGV[0] && $ARGV[0] eq '-v') {
      $entity->purge();
   }
   else {
      for my $part ($entity->parts) {
         my $body = $part->bodyhandle();
         my $path = '';
         if($body) {
            $path = $body->path();
         }
         else {
            $path = '';
         }
         print $path,"\n";
      }
   }
   printf "————————————————————————————————————————————————\n";
}
$pop->quit;


最后由 solcomo 编辑于 2008-07-12 20:02,总共编辑了 1 次

页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:07 
头像

注册: 2006-04-12 20:05
帖子: 8495
地址: 杭州
送出感谢: 0 次
接收感谢: 8
:shock: :P


_________________
关注我的blog: ε==3


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:08 
头像

注册: 2007-09-29 3:09
帖子: 5773
送出感谢: 0 次
接收感谢: 3
收藏了先~


_________________
HUNT Unfortunately No Talent...


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:09 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
复杂了。何必


_________________
● 鸣学


页首
 用户资料  
 
5 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:12 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
复杂了。何必


强烈要求ee说出简单的方法 :D


页首
 用户资料  
 
6 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:15 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
我一贯遵循人性化的原则。我那脚本就最简单了。脚本是为了方便使用的,挂fm或者热键才发挥最大效果。


_________________
● 鸣学


页首
 用户资料  
 
7 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:28 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
:shock: 这个是接收的不是发送的...


页首
 用户资料  
 
8 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:30 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
穷到没客户端了?


_________________
● 鸣学


页首
 用户资料  
 
9 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:31 
头像

注册: 2006-07-02 11:16
帖子: 12522
地址: 廣州
送出感谢: 0 次
接收感谢: 8
eexpress 写道:
穷到没客户端了?

其实发送用的也是客户端。。。


_________________
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。


页首
 用户资料  
 
10 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:36 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
穷到没客户端了?


是没客户端
以前都是直接上网页 :lol:


页首
 用户资料  
 
11 楼 
 文章标题 :
帖子发表于 : 2008-07-12 19:44 
头像

注册: 2005-06-30 15:46
帖子: 2245
地址: 成都
送出感谢: 0 次
接收感谢: 0 次
2n是什么?


_________________
Humanity to others // 己所不欲,勿施与人
Laptop: ThinkPad X220 --- Win7 Home / Ubuntu 12.04
Desktop: Win7/Ubuntu 12.04
Server: Ubuntu12.04


页首
 用户资料  
 
12 楼 
 文章标题 :
帖子发表于 : 2008-07-12 20:02 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
就是2奶了 :lol:


页首
 用户资料  
 
13 楼 
 文章标题 :
帖子发表于 : 2008-07-12 20:57 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
BigSnake.NET 写道:
eexpress 写道:
穷到没客户端了?

其实发送用的也是客户端。。。
球猫没老婆。理解不到我那脚本的意思。可球猫却有2n。


_________________
● 鸣学


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 13 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译