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

Perl

use chilkat();

$success = 0;

#  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.

$mime = chilkat::CkMime->new();

$success = $mime->SetBodyFromPlainText("name=John Doe & city=New York");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

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

$encodedBody = $mime->getBodyDecoded();
if ($mime->get_LastMethodSuccess() == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print $encodedBody . "\r\n";