如何将接受到的既有16进制也有10进制的消息原样输出

siyantianji

在起SNMP接受消息的时候收到的一串消息中，前57个字节是16进制，后70个字节是10进制，现在我输出的时候前面的57个字节就成了乱码，但是后面的10进制能够正确输出，怎样能够将前面的57个字节按照16进制格式输出？？

1. #!/usr/bin/suidperl
   
2. use strict;
   
3. use IO::Handle;
   
4. use BER;
   
5. use Socket;
   
6. require 'SNMP_Session.pm';
   
7. 
   
8. $BER::pretty_print_timeticks = 0;
   
9. 
   
10. my $trap_session = SNMPv1_Session->open_trap_session() or die "cannot open trap session";
    
11. 
    
12. while(1){
    
13.         my($trap,$sender_addr,$sender_port) = $trap_session->receive_trap() or die "cannot receive trap";
    
14.         my($community, $enterprise, $agent,$generic, $specific, $sysUptime, $bindings) = $trap_session->decode_trap_request($trap) or die "cannot decode trap received";
    
15.         my $binding;
    
16.         my $oid;
    
17.         my $value;
    
18. 
    
19.         while ($bindings ne '') {
    
20.                 ($binding,$bindings) = &decode_sequence ($bindings);
    
21.                 ($oid, $value) = decode_by_template ($binding, "%O%@");
    
22.                  
    
23.           my $oidname=$OidName{BER::pretty_oid($oid)};
    
24.           my $oidvalue=pretty_print ($value);
    
25.           
    
26.           print BER::pretty_oid($oid),"=",$oidvalue,"\n";
    
27.    
    
28.          }
    
29. 
    
30. }

复制代码

siyantianji

怎么看的人多，回帖的人少啊

y6cmE

呵呵，

1. unpack("L*",pack("H*",$hexdata));

复制代码

自己转化一下，57字节？

siyantianji

问题解决，可先用ord将前面的16进制专成10进制，再用hex将10进制专成16进制就可以了

hwxo

57个字节不知道里面存的啥子哟？