Цчу перл и дошел до сокетов. Пытаюсь передать произвольные данные через сокеты. Вот так отправляю:
my $msg = pack("(C)*",@{$workers{$pos}->{buff}});
write($workers{$pos}->{sock},$msg,256);
А вот так принимаю:
my $conn = $sock->accept();
read($conn, $buffer, 256);
my @up = unpack("(C)*",$buffer);
Сокеты создаю вот так:
my $sock = IO::Socket::INET->new(
LocalHost => '127.0.0.1',
LocalPort => '12341',
Proto => 'tcp',
Listen => MAXCONN,
Reuse => 1,
)
Простыо через принт данные передаются, а так не хотят. В чем я ошибся?
