Perl

Get the JWS Payload into a StringBuilder

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadSb, which writes the payload of a loaded JWS as text into a StringBuilder, decoded using the given charset.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $jws = Chilkat2::Jws->new;

# Load the JWS compact serialization.
my $jwsCompact = 'eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>';
my $success = $jws->LoadJws($jwsCompact);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Get the JWS payload as text into a StringBuilder, decoded using the given charset.
my $sbPayload = Chilkat2::StringBuilder->new;
$success = $jws->GetPayloadSb('utf-8', $sbPayload);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

print $sbPayload->GetAsString(), "\n";