MIME::Head 5.420

MIME::Head is a MIME message header (a subclass of Mail::Header).

SYNOPSIS

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'll wait.

Ready? Ok...

Construction

### Create a new, empty header, and populate it manually:
$head = MIME::Head->new;
$head->replace('content-type', 'text/plain; charset=US-ASCII');
$head->replace('content-length', $len);

### Parse a new header from a filehandle:
$head = MIME::Head->read(*STDIN);

### Parse a new header from a file, or a readable pipe:
$testhead = MIME::Head->from_file("/tmp/test.hdr");
$a_b_head = MIME::Head->from_file("cat a.hdr b.hdr |");

Output

### Output to filehandle:
$head->print(*STDOUT);

### Output as string:
print STDOUT $head->as_string;
print STDOUT $head->stringify;

Getting field contents

### Is this a reply?
$is_reply = 1 if ($head->get('Subject') =~ /^Re: /);

### Get receipt information:
print "Last received from: ", $head->get('Received', 0), "n";
@all_received = $head->get('Received');

### Print the subject, or the empty string if none:
print "Subject: ", $head->get('Subject',0), "n";

### Too many hops? Count 'em and see!
if ($head->count('Received') > 5) { ...

### Test whether a given field exists
warn "missing subject!" if (! $head->count('subject'));
Setting field contents
### Declare this to be an HTML header:
$head->replace('Content-type', 'text/html');
Manipulating field contents
### Get rid of internal newlines in fields:
$head->unfold;

### Decode any Q- or B-encoded-text in fields (DEPRECATED):
$head->decode;

Getting high-level MIME information

### Get/set a given MIME attribute:
unless ($charset = $head->mime_attr('content-type.charset')) {
$head->mime_attr("content-type.charset" => "US-ASCII");
}

### The content type (e.g., "text/html"):
$mime_type = $head->mime_type;

### The content transfer encoding (e.g., "quoted-printable"):
$mime_encoding = $head->mime_encoding;

### The recommended name when extracted:
$file_name = $head->recommended_filename;

### The boundary text, for multipart messages:
$boundary = $head->multipart_boundary;

Product's homepage

Requirements:

· Perl