Perl

URL-Encode a MIME Body

Demonstrates the Chilkat Mime.UrlEncodeBody method, which replaces the current body with an application/x-www-form-urlencoded-style representation using the named charset. The only argument is the charset; it is a void method.

Background: This transforms the body into the form-encoding used by HTML form submissions — spaces to +, reserved characters to percent-escapes — interpreting the text through the given charset first so non-ASCII characters encode correctly. It is a niche operation for constructing form-style payloads within a MIME part.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Mime.UrlEncodeBody method, which replaces the current body with an
# application/x-www-form-urlencoded representation using the named charset.  The only argument is
# the charset.  It is a void method.

my $mime = Chilkat2::Mime->new;

my $success = $mime->SetBodyFromPlainText('name=John Doe & city=New York');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# URL-encode the body: spaces become "+", reserved characters become %-escapes.
$mime->UrlEncodeBody('utf-8');

my $encodedBody = $mime->GetBodyDecoded();
if (!$mime->LastMethodSuccess) {
    print $mime->LastErrorText, "\n";
    exit;
}

print $encodedBody, "\n";