Sign in
kernel
/
pub
/
scm
/
boot
/
syslinux
/
syslinux
/
refs/tags/syslinux-2.00-pre14
/
.
/
bin2hex.pl
blob: 8d8909b92577ebf305e48744e1fc2acac7e691ee [
file
] [
log
] [
blame
]
#!/usr/bin/perl
$len
=
0
;
while
(
read
(
STDIN
,
$ch
,
1
)
)
{
$cc
=
ord
(
$ch
);
$len
+=
printf
(
"%x"
,
$cc
);
if
(
$len
>
72
)
{
print
"\n"
;
$len
=
0
;
}
else
{
print
" "
;
$len
++;
}
}
print
"\n"
if
(
$len
);
exit
0
;