my $sock = new IO::Socket::INET (PeerAddr => '192.168.1.154', PeerPort => 7002, Proto => 'tcp'); die "Error \n" unless $sock;

@a = (77, 1);

$sock->send(@a);

close($sock);

проблема ми е че пращането по сокета преобразува масива в стринг някои знае ли как мога да пратя буфер без да го конвертира т.е.

праштам @a и от другата страна да получа 77, 1 а не 7, 7, 1

lesno e da pobedi6 viwota stiga da ima6 smelost da riskuwa6 wsi4ko

Ami to socket-a da se useti kakwo tochno se sluchwa edwa li... ti triabwa da si formatirash dannite join w edinia krai i split w drugia... s podhodiash separator...

use Storable;

трябва да свърши работа ...




#!/usr/bin/perl
eval unpack("u", 'D<\')I;G0@(DIU<W0@86YO=&AE<B!097)L(&AA8VME<B%<;B(*');