Binär-Buffer für socket syswrite aufbauen (gelöst) (Allgemeines zu Perl)

[thread]17493[/thread]

Binär-Buffer für socket syswrite aufbauen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
meck

2012-06-18 19:50
User since
2012-06-18
3 Artikel
BenutzerIn
Hallo,

drehe mich gerade im Kreis und brauche Hilfe. Ich habe eine Lösung gefunden
die jedoch in einer Schleife pack benutzt. Das geht doch
bestimmt eleganter ?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use strict; our @send; fillbuffer(); my $buf; foreach (@send) { $buf=$buf.pack("c",$_); } my $len=@send; print "<$buf> <$len>"; # $ok=$client_socket->syswrite($buf,$len); sub fillbuffer { my $a=STX();my $b=0x11;my $c=0x12;my $d=ETX(); @send=($a,$b,$c,$d); } sub STX() { "\002" }; sub ETX() { "\003" };
Last edited: 2012-06-18 20:09:05 +0200 (CEST)
- +5 replies
- topeg
  
  2012-06-18 20:32
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use warnings; my @send= fillbuffer(); my $buf=pack('s*',@send); my $len=@send; print "<$buf> <$len>"; # $ok=$client_socket->syswrite($buf,$len); sub fillbuffer { return ( STX(),0x11,0x12,ETX() ); } sub STX() { "\002" }; sub ETX() { "\003" };
  
  Wenn du warnings nutzen würdest würden dir die Meldungen bezüglich den schon kodierten Werten auffallen. Weiterhin wird es Probleme geben wenn du versuchst die Werte zu versenden. Ein "Short" hat zwei Byte, das bedeutet, dass nur die Hälfte versendet wird, wenn du die Länge es Arrays nimmst.
  Oder willst du es als "Char" versenden das hat ein Byte.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; $Data::Dumper::Useqq=1; my @send= fillbuffer(); my $buf=pack('s*',@send); print Dumper($buf,length $buf); # $ok=$client_socket->syswrite($buf,length $buf); sub fillbuffer { return ( STX(),0x11,0x12,ETX() ); } sub STX() { unpack('C',"\002") }; sub ETX() { 3 };
  - +4 replies
  - meck
    
    2012-06-18 21:02
    User since
    2012-06-18
    3 Artikel
    BenutzerIn
    
    Hallo topeg,
    
    vielen Dank für die schnelle Antwort.
    Deine Zeile inklusive dem char
    
    Code: (dl )
    
    my $buf=pack('c*',@send);
    
    passt genau.
    Data::Dumper ist auch sehr praktisch.
    - +3 replies
    - topeg
      
      2012-06-19 10:27
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Bist du dir sicher mit dem kleinen "c"? Das hat einen Wertebereich von -128 bis +127. Das große "C" hat einen Wertebereich von 0 bis 255. Nicht das die Daten am Ziel falsch ankommen.
      - +2 replies
      - meck
        
        2012-06-20 01:22
        
        User since
        2012-06-18
        3 Artikel
        BenutzerIn
        
        Ich setze im Array ein Byte auf 0xFE,
        konvertiere via pack mit dem kleinen "c"
        in ein Skalar und im Socket write wird
        wie gewünscht 0xFE übertragen.
        
        topeg
        
        2012-06-20 03:21
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wenn du "use warnings;" verwendest, was ich empfehle, bekommst du die Meldung: Character in 'c' format wrapped in pack at ... line ...
        Das heißt so viel das du einen Format overrun provoziert hast. Perl versucht das zu lösen indem es versucht ein Format zu erraten das passen könne und das ist hier halt unsiged Char (C). So was kann auch schief gehen.
        
        Ich würde vorschlagen gleich C zu nutzen und perl arbeit zu ersparen.

View all threads created 2012-06-18 19:50.