怎样读取一个二进制文件并把二进制码打印出来

怎样读取一个二进制文件并把二进制码打印出来
怎样读取一个二进制文件并把二进制码打印出来

做出来了,希望大家多指教
open(OUTFILE,"D:/OK.B04010937200706280433510008600004128") or die "can not find the file:$!";#打开文件
binmode (OUTFILE);
open(INFILE,">D:/result/bin.txt");
binmode (INFILE);
while(my $line = <OUTFILE>){
my @packdata = unpack ("H*",$line);
print INFILE "@packdata";
}
close(INFILE);
close(OUTFILE);

Data::HexDump
sub dump2hex {
my $count=0; my $div=16;
$div=$_[1]*2 if defined $_[1];
return join '', map {$count++; if ($count % $div==0) {$_.="\n"} else {$_.=" "}} split (/(....)/, unpack('H*',"$_[0]"))
}

print dump2hex('Hello World Joe Jiang Today is so fine',4 ), "\n"
print dump2hex('Hello World Joe Jiang Today is so fine' ), "\n"

发现还没有自动折行，用了这个函数也许更加好看些。没有参数的话是 8 个 byte 折行，否则可以自定义。
或者用 Data::HexDump 模块也行。

谢谢.

rowezqtlw
T1eizo <a href="http://qjjkbnwjmste.com/">qjjkbnwjmste</a>, [url=http://uqibxgteaxat.com/]uqibxgteaxat[/url], [link=http://eokryxifnmpy.com/]eokryxifnmpy[/link], http://tjuoksdcyfyb.com/

[img]http://ynyjfsszhoyx.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]YsBoTwTgBKOIqUJi[/url]