Email::Simple 解析邮件内容

leaon110

不知大伙有么有做过邮件解析的工作。看过CPAN 中的模块的说明，能工作的就是Email::simple 和Email::MIME 。不过在new 第一个步骤就有点卡住了。我要问Email::Simple->new（$message）中的$message 表示的含义。我的理解应该是需要解析的邮件内容。下面是我应用测试的代码，先按照例子写了creat 邮件内容，让后在用测试解析的动作。
代码都是CPAN 的例子，不过没有正确做出效果。
---------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;

#use Email::Simple;
use Email::Simple;


#my $Files ='e:\temp\new edcd - ADP5046 FTLY Report 2419404.eml';
#open F,$Files or die "error in open file\n" ;
#open H,$Files ;


#my $parsed = Email::MIME->new($message);

my $email1 = Email::Simple->create(
      header => [
        From    => 'casey@geeknest.com',
        To      => 'drain@example.com',
        Subject => 'Message in a bottle',
      ],
      body => 'hello,teddy!',
  );
  
  $email1->header_set( 'X-Content-Container' => 'bottle/glass' );
  
  print($email1->as_string);

my $message ="hello";
my $email = Email::Simple->new($message);// 在这里$message 应该是什么内容。
  my $from_header = $email->header("From");//理应抽出from 对应的信息，可是没有
  my @received = $email->header("To");//理应抽出to 对应的信息 ，可是没有

  $email->header_set("From", 'Simon Cozens <simon@cpan.org>');

  my $old_body = $email->body;
  $email->body_set("Hello world\nSimon");

  print $email->as_string;