Perl

Remove a MIME Header Field

Demonstrates the Chilkat Mime.RemoveHeaderField method, which removes header fields whose name matches case-insensitively. The first argument is the field name and the second (bAllOccurrences) selects whether to remove all matches or only the first. It is a void method.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Stripping headers is common when reprocessing a message — removing spam-scoring X- headers, clearing an old Content-Length before re-serializing, or deleting routing headers before forwarding. The all-occurrences flag matters for headers that can repeat: pass true to purge every instance, or false to drop just the first.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->LoadMimeFile('qa_data/message.eml');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Remove header fields whose name matches (case-insensitively).  The 1st argument is the field
# name and the 2nd (bAllOccurrences) selects whether to remove all matches or only the first.
# RemoveHeaderField is a void method.

# Remove every X-Spam-Status header.
my $bAllOccurrences = 1;
$mime->RemoveHeaderField('X-Spam-Status', $bAllOccurrences);

print "Removed the header field(s).\n";