#!/usr/bin/perl -w
use MIME::Parser;
my $parser = new MIME::Parser;
$parser->output_under("/tmp");
open($file,"<","/tmp/1277779920.21268.srv12.made.com\,S\=3033595") or die "can't open files";
$entity = $parser->parse($file);
$entity->dump_skeleton
|
可用于分离出msg，附件等。
另：MIME::Entity用于创建和发送
MIME::Parser 可用于处理mime message
详细：
关于MIME：
阅读(1631) | 评论(0) | 转发(0) |
