mirror of https://github.com/yasm/yasm.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
402 B
13 lines
402 B
#!/usr/bin/env perl |
|
|
|
open(BFILE,$ARGV[0]) || die "Could not open \\$ARGV[0]\\: $!"; |
|
|
|
# This is needed to run correctly on systems with Perl version 5.8.0 or higher |
|
# and a UTF-8 locale. This so happens to describe Tyler's setup nicely. :) |
|
binmode(BFILE); |
|
|
|
while(!eof(BFILE)) { |
|
read(BFILE, $buffer, 1); |
|
printf("%02x \n", ord($buffer)); |
|
} |
|
close(BFILE) || die "Could not close \\$ARGV[0]\\: $!";
|
|
|