Perl RawIP maximale Datengröße

Question

Ich versuche, einige Daten über TCP mit Net :: RawIP in Perl zu senden. Leider bekomme ich den Fehler

sendto() bei /usr/lib/x86_64-linus-gnu/perl5/5.24/Net/RawIP.pm Linie 630

, wenn das TCP-Datenfeld größer ist als etwa 1470 Zeichen:

my $n = Net::RawIP->new({ 
         ip => { 
           saddr => '[src]', 
           daddr => '[dst]', 
           }, 
         tcp => { 
           source => 7777, 
           dest => 7777, 
           data => "x" x 150 
          } 
         }); 
    $n->send; 

funktioniert, aber

my $n = Net::RawIP->new({ 
         ip => { 
           saddr => '[src]', 
           daddr => '[dst]', 
           }, 
         tcp => { 
           source => 7777, 
           dest => 7777, 
           data => "x" x 1500 # size changed here 
          } 
         }); 
    $n->send; 

stürzt ab. Irgendwelche Ideen, warum das passiert?

Answer 1

Sie erstellen ein Paket, das too large ist, also gibt sendto Fehler EMSGSIZE zurück.

EMSGSIZE
Der Socket-Typ erfordert, dass Nachricht atomar gesendet werden, und die Größe der Nachricht diese verunmöglicht gesendet werden.

Es ist kein Geheimnis, dass es beginnt um 1500 zu versagen; das ist das Maximum, das ein Ethernet-Frame tragen kann.

Sie müssen mehrere Pakete oder mehrere Paketfragmente verwenden.