Perl: Чтение двоичного файла и отправить через гнездо

Question

Я пытаюсь отправить двоичный файл через сокет UDP в Perl:

#!/usr/bin/perl 
use warnings; 
use strict; 
use IO::Socket; 
my $sock = IO::Socket::INET->new(
    Proto => 'udp', 
    PeerPort => 666, 
    PeerAddr => '127.0.0.1', 
) or die "Could not create socket: $!\n"; 

my $input; 
open $input, "result1.bin" or die "Unable to oen: $!"; 
binmode $input; 
my $data; 
my $nbytes; 
while($nbytes = read $input, $data, 32) { 
     print "$nbytes bytes read\n"; 
} 
my $res = $sock->send($data); 
print $res . "\n"; 

Мой выход:

32 bytes read 

32 bytes read 

16 bytes read 

0 

Почему вызов отправить не отправить байт?

Answer 1

Проблема заключается в этой строке:

while($nbytes = read $input, $data, 32) { 

Поскольку вы не указываете offset, функция read хранит входные данные в начале $data в каждой итерации, перезапись ранее полученных данных. В последней итерации, когда нет данных для чтения, пустая строка сохраняется в $data, и цикл while завершается.

Поскольку размер $data равен 0, функция send не отправляет ничего.

Вот как вы можете исправить вызов read:

while($nbytes = read $input, $data, 32, length $data) { 

Update: Как уже упоминалось в комментариях, UDP не правильный подход и приведенный выше код может не работать, вы ожидаете, поскольку пакеты могут быть не по порядку или даже потерян.