8 lines
156 B
Perl
8 lines
156 B
Perl
|
$hexdigit = 0xA;
|
||
|
|
|
||
|
|
vec ($data, 0, 8) = $hexdigit;
|
||
|
|
print vec ($data, 3, 1);
|
||
|
|
print vec ($data, 2, 1);
|
||
|
|
print vec ($data, 1, 1);
|
||
|
|
print vec ($data, 0, 1);
|