请教perl命令读binary文件然后将hex输出到shell

leonqin0101

请教各位大侠，最近做一个项目，需要用perl命令（非script）将一个binary的文件以hex的方式输出到shell的stdout里面

我知道脚本怎么处理，例如：
open (MYFILE, 'test');
while (<MYFILE>) {
        chomp;
    printf("%02x ", ord($_));
}
close (MYFILE);

但是我怎么样才能换到perl command呢？ 就是以perl -ne 'command'的方式

多谢

yakczh_cu

ord($_) 只输出行首第一个字母
下面这个才是全的

1. #Aa
   
2. open (MYFILE, __FILE__);
   
3. while (<MYFILE>) {
   
4.      chop;
   
5.      $i=0;
   
6.      $len=length;
   
7.      @line=split //;
   
8.      @sepline= map {$_=$_.' '} @line;
   
9.      print "@sepline",chr(10);
   
10.      do {
    
11.          printf("%02x ",ord($line[$i]));
    
12.     } while ($i++ < $len-1);
    
13.      print "\n\n";
    
14. }
    
15. close (MYFILE);

复制代码

huang6894

perl -ne 'printf("%02x \n", ord($_));' test ??
楼主是。。。这个意思？我是我没理解过来？

jason680

回复 1# leonqin0101

How about this easy way ...

od -An -tx1 FILE