Help for this page

Select Code to Download


  1. or download this
    my $msg = Mail::MboxParser::Mail->new([<STDIN>],[<STDIN>]);
  2. or download this
    my $msgtext;
{ local $/; $msgtext = <STDIN> }
my ($header, $body) = split /\n\r?\n/, $msgtext, 2;
my $msg = Mail::MboxParser::Mail->new($header, $body);
  3. or download this
    my @headerlines;
while (<STDIN>) {
...
}

my $msg = Mail::MboxParser::Mail->new(\@headerlines, "");
  4. or download this
    my $msg = Mail::MboxParser::Mail->new(\@headerlines, [<STDIN>]);