Chinaunix

标题: 请教关于perl下socket编程，如何发送和接收十六进制数 [打印本页]

---

作者: copywu    时间: 2008-08-26 17:16
标题: 请教关于perl下socket编程，如何发送和接收十六进制数
请教关于perl下socket编程，如何发送和接收十六进制数

主要是该如何接收十六进制数呢，目前有个服务端程序在接收相应指令后，返回的结果是十六进制数，不知道该如何接收。。
以下是我的客户端程序，接收到十六进制数的时候就会出现乱码，，请各位帮忙看看该如何改呢，

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use Socket;
   
6. my ($name,$len,$aliases,$proto,$type,$ServerAddr,$buffer);
   
7. my $server = $ARGV[0] || '127.0.0.1';
   
8. my $port = $ARGV[1] || '11122';
   
9. 
   
10. my $PF_INET=2;
    
11. my $SOCK_STREAM=1;
    
12. $proto=getprotobyname("tcp");
    
13. $|=1;
    
14. my $BUFFER = "$ARGV[2]";
    
15. #my $BUFFER = "\$002";
    
16. $BUFFER .= chr(13);
    
17. ($name,$aliases,$type,$len,$ServerAddr) = gethostbyname($server);
    
18. my $ADDR=pack('Sna4x8',$PF_INET,$port,$ServerAddr);
    
19. 
    
20. socket (SOCKET,$PF_INET,$SOCK_STREAM,$proto) or die "Can't create socket: $!";
    
21. connect (SOCKET,$ADDR) or die "Can't connect: $!";
    
22. 
    
23. syswrite(SOCKET, $BUFFER, length($BUFFER));
    
24. sysread(SOCKET, $buffer, 200);
    
25. print $buffer;
    
26. print "\n";
    
27. exit(0);
    

复制代码

---

作者: 9119111    时间: 2008-08-26 17:19
print hex $buffer;

不行?

---

作者: flw    时间: 2008-08-26 17:20
pack unpack
用的贼爽

---

作者: xiaoyu9805119    时间: 2008-08-26 17:49

原帖由 flw 于 2008-8-26 17:20 发表
pack unpack
用的贼爽

确实

---

作者: dnglee    时间: 2008-09-02 08:36

1. 
   
2. sub hex_string {
   
3.     my $string = shift;
   
4.     jion " ", map{sprintf "%02X", ord($_)} split //, $string;
   
5. }
   

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2