Sample code for 30+ languages & platforms
Perl

Get the JWS Payload into BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadBd, which writes the payload of a loaded JWS as raw bytes into a BinData.

Background. This is used when the payload is binary. In practice, validate the signature before trusting the payload.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$jws = chilkat::CkJws->new();

#  Load the JWS compact serialization.
$jwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>";
$success = $jws->LoadJws($jwsCompact);
if ($success == 0) {
    print $jws->lastErrorText() . "\r\n";
    exit;
}

#  Get the JWS payload as raw bytes into a BinData.
$bdPayload = chilkat::CkBinData->new();
$success = $jws->GetPayloadBd($bdPayload);
if ($success == 0) {
    print $jws->lastErrorText() . "\r\n";
    exit;
}

print "Payload is " . $bdPayload->get_NumBytes() . " bytes." . "\r\n";