#!/home/markt/usr/local/Linux/bin/perl -w
my
$glis
=
"\x{395}\x{3CD}\x{3B1}\x{3B3}\x{3B3}\x{3B5}\x{3BB}\x{3CA}\x{3B1}\x{65}\x{66}"
;
$num
= 333;
print
"HEX: "
,
&dectohex
(
$num
),
"\n"
;
print
"BIN: "
,
&dectobin
(
$num
),
"\n"
;
my
@ch
=
split
//,
$glis
;
foreach
(
@ch
)
{
print
"CHAR: $_\n"
;
my
$x
=
unpack
(
"U"
,
$_
);
my
@bytes
=
&get_chars_from_dec
(
$x
);
push
@all
,
@bytes
;
print
"NUM: $x = $bytes[0] $bytes[1]\n"
;
}
local
$
" = "
,";
print
"@all\n"
;
exit
;
@chars
=
&get_chars_from_decs
(
@num
);
$
" = "
,";
print
"@chars\n"
;
sub
get_chars_from_decs
{
my
@ret
;
foreach
(
@_
)
{
push
@ret
,
&get_chars_from_dec
(
$_
);
}
@ret
;
}
sub
get_chars_from_dec
{
unpack
(
"C*"
,
pack
(
"n"
,
shift
));
}
sub
bintodec
{
unpack
(
"N"
,
pack
(
"B32"
,
substr
(
"0"
x 32 .
shift
, -32)));
}
sub
dectobin
{
unpack
(
"B32"
,
pack
(
"N"
,
shift
));
}
sub
dectohex
{
unpack
(
"h*"
,
pack
(
"n"
,
shift
));
}