NAME<\/a> MIME::Body \u2212 the body of a MIME message<\/p>\n Before reading further, you should see MIME::Tools to make sure that you understand where this module fits into the grand scheme of things. Go on, do it now. I\u2019ll wait.<\/p>\n Ready? Ok…<\/p>\n Obtaining bodies<\/b> Opening, closing, and using IO<\/small> handles<\/b> Other I\/O<\/b> Working directly with paths to underlying files<\/b> MIME<\/small> messages can be very long (e.g., tar files, MPEGs, etc.) or very short (short textual notes, as in ordinary mail). Long messages are best stored in files, while short ones are perhaps best stored in core.<\/p>\n This class is an attempt to define a common interface for objects which contain message data, regardless of how the data is physically stored. The lifespan of a “body” object usually looks like this:<\/p>\n
SYNOPSIS<\/a>
DESCRIPTION<\/a>
PUBLIC INTERFACE<\/a>
SUBCLASSES<\/a>
NOTES<\/a>
SEE ALSO<\/a>
AUTHOR<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
### Get the bodyhandle of a MIME::Entity object:
$body = $entity\u2212>bodyhandle;
### Create a body which stores data in a disk file:
$body = new MIME::Body::File “\/path\/to\/file”;
### Create a body which stores data in an in\u2212core array:
$body = new MIME::Body::InCore @strings;<\/p>\n
### Write data to the body:
$IO = $body\u2212>open(“w”) || die “open body: $!”;
$IO\u2212>print($message);
$IO\u2212>close || die “close I\/O handle: $!”;
### Read data from the body (in this case, line by line):
$IO = $body\u2212>open(“r”) || die “open body: $!”;
while (defined($_ = $IO\u2212>getline)) {
### do stuff
}
$IO\u2212>close || die “close I\/O handle: $!”;<\/p>\n
### Dump the ENCODED body data to a filehandle:
$body\u2212>print(*STDOUT);
### Slurp all the UNENCODED data in, and put it in a scalar:
$string = $body\u2212>as_string;
### Slurp all the UNENCODED data in, and put it in an array of lines:
@lines = $body\u2212>as_lines;<\/p>\n
### Where’s the data?
if (defined($body\u2212>path)) { ### data is on disk:
print “data is stored externally, in “, $body\u2212>path;
}
else { ### data is in core:
print “data is already in core, and is…n”, $body\u2212>as_string;
}
### Get rid of anything on disk:
$body\u2212>purge;<\/p>\nDESCRIPTION <\/a> <\/h2>\n