请教关于perl下socket编程，如何发送和接收十六进制数

copywu

UID: 30538
帖子: 4
积分: 9
在线时间: 10 分钟

1^# copywu 发表于 2008-08-26 17:16

请教关于perl下socket编程，如何发送和接收十六进制数

请教关于perl下socket编程，如何发送和接收十六进制数

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

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

use strict;
use Socket;
my ($name,$len,$aliases,$proto,$type,$ServerAddr,$buffer);
my $server = $ARGV[0] || '127.0.0.1';
my $port = $ARGV[1] || '11122';

my $PF_INET=2;
my $SOCK_STREAM=1;
$proto=getprotobyname("tcp");
$|=1;
my $BUFFER = "$ARGV[2]";
#my $BUFFER = "\$002";
$BUFFER .= chr(13);
($name,$aliases,$type,$len,$ServerAddr) = gethostbyname($server);
my $ADDR=pack('Sna4x8',$PF_INET,$port,$ServerAddr);

socket (SOCKET,$PF_INET,$SOCK_STREAM,$proto) or die "Can't create socket: $!";
connect (SOCKET,$ADDR) or die "Can't connect: $!";

syswrite(SOCKET, $BUFFER, length($BUFFER));
sysread(SOCKET, $buffer, 200);
print $buffer;
print "\n";
exit(0);

9119111

UID: 43429
帖子: 76
积分: 174
在线时间: 8 小时

2^# 9119111 发表于 2008-08-26 17:19

print hex $buffer;

不行?

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

3^# flw 发表于 2008-08-26 17:20

pack unpack
用的贼爽

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

4^# xiaoyu9805119 发表于 2008-08-26 17:49

QUOTE:

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

确实

dnglee

UID: 6856
帖子: 154
积分: 354
在线时间: 1 天 8 小时

5^# dnglee 发表于 2008-09-02 08:36

[Copy to clipboard] [ - ]

CODE:

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