Perl
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.
Background. In practice, validate the signature before trusting the payload.
Chilkat Perl Downloads
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 text into a StringBuilder, decoded using the given charset.
$sbPayload = chilkat::CkStringBuilder->new();
$success = $jws->GetPayloadSb("utf-8",$sbPayload);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
print $sbPayload->getAsString() . "\r\n";