Perl

Get the JWS Payload as a String

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayload, which returns the payload of a loaded JWS as text, decoded using the given charset.

Background. In practice, validate the signature before trusting the payload. Getting the payload retrieves the signed content.

Chilkat Perl Downloads

Download Chilkat for Perl

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;
}

# Return the JWS payload as text, decoded using the given charset.
my $payload = $jws->GetPayload('utf-8');
if (!$jws->LastMethodSuccess) {
    print $jws->LastErrorText, "\n";
    exit;
}

print $payload, "\n";