Привет всем,столкнулся с такой проблемой, читаю фаил который хранит в себе utf8 строки и создаю пакет для отправки, серверное приложение получает пакет но при декодировании получает такой результат: \0\0\0\0\0\0\0\0\0, может я не правильно строки utf8 с помощью pack кладу?
| Код |
use IO::Socket;
use Data::Dumper;
open (FILE,"D:\data.txt") or die "$!";
my $packet;
my $socket = IO::Socket::INET->new(PeerPort => '5540', PeerAddr => '127.0.0.1', Proto => 'tcp') or die "$!";
my $i = 0;
while (my $line = <FILE>)
{
chomp($line);
my ($firstname,$lastname,) = split(';',$line);
$packet .= pack("i1",length($firstname));
$packet .= pack("U1",$firstname);
$packet .= pack("i1",length($lastname));
$packet .= pack("U1",$lastname);
$i++;
}
$socket->send($packet);
|
Длина приходит правильная а все остальное в таких вот нулях и слешах, можете сказать что я не так делаю? испробовал уже Encode, utf8 и т.д нечего не помогло |