return join('', map { sprintf("%02x",ord($_)) } split (//, $data));
}
return join('', map { sprintf("%02x",ord($_)) } split (//, $data));
}
my $hash;
$hash->{SXID} = substr( $decoded->[4], 0, 20 );
$hash->{JMBAG} = substr( $decoded->[4], 22, 10 );
my $hash;
$hash->{SXID} = substr( $decoded->[4], 0, 20 );
$hash->{JMBAG} = substr( $decoded->[4], 22, 10 );