Sign in
fuchsia
/
third_party
/
yasm
/
4abb80159f94be5c91f30caefa7aca72465d0d0f
/
.
/
yasm
/
test_hd.pl
blob: 9629d0f7c26e52a2493f03706d7e2fc845a93f76 [
file
] [
log
] [
blame
]
#! /usr/bin/env perl
open
(
BFILE
,
$ARGV
[
0
])
||
die
"Could not open \\$ARGV[0]\\: $!"
;
while
(!
eof
(
BFILE
))
{
read
(
BFILE
,
$buffer
,
1
);
printf
(
"%02x \n"
,
ord
(
$buffer
));
}
close
(
BFILE
)
||
die
"Could not close \\$ARGV[0]\\: $!"
;