Sample code for 30+ languages & platforms
Perl

Get a JWS Unprotected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetUnprotectedH, which copies the optional unprotected header of a signature into a JsonObject.

Background. The unprotected header is present only in JSON serialization forms that carry one. It is not covered by the signature.

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

#  Copy the optional unprotected header of signature 0 into a JsonObject.  This applies to JWS in a
#  JSON serialization form that carries an unprotected header.
$json = chilkat::CkJsonObject->new();
$success = $jws->GetUnprotectedH(0,$json);
if ($success == 0) {
    print $jws->lastErrorText() . "\r\n";
    exit;
}

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";