Perl - raw bytes via udp

[Marcus S. (Gast)]

Hallo,

in einem Perl Script sollen UDP frames erzeugt bzw. gesendet werden, 
welche XY Koordinaten und Farbwerte RGB ( je ein byte) enthalten.

Angenommen der Server erzeugt folgende Werte für einen "Pixel"

X-Koordinate= Pixel 8   (HEX:08)
Y-Koordinate= Pixel 2   (HEX:02)

(Farbe:violett)
Rotwert=  160   (HEX:A0)
Grünwert= 32    (HEX:20)
Blauwert= 240   (HEX:F0)

Nnun sollen die Daten exakt wie folgt formatiert - versendet werden
"0802A020F0"

Hierfür habe ich folgendes Perl-Script geschrieben.

#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;
my $xval=00;
my $yval=00;
my $rval=00;
my $gval=00;
my $bval=00;


my $bulb_sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 8888,
    PeerAddr => '192.168.3.23',
) or die "Could not create socket: $!\n";
for( ; ; )
{


#Generate Random XY Coordinates within possible range and convert to HEX
$xval = int(rand(9));   $xval = sprintf("%02x",$xval);
$yval = int(rand(23));  $yval = sprintf("%02x",$yval);

#Generate Random RGB Values within possible range for additive color mixing and convert to HEX
$rval = int(rand(255)); $rval = sprintf("%02x",$rval);
$gval = int(rand(255)); $gval = sprintf("%02x",$gval);
$bval = int(rand(255)); $bval = sprintf("%02x",$bval);

#send data via UDP
$bulb_sock->send("$xval"."$yval"."$rval"."$gval"."$bval") or die "Send Error: $!\n";
}

Anders als erartet, sendet dieses jedoch für oben genannte XYZRGB Werte:
"30383032613032306630"
und nicht:
"0802A020F0"


Wo ist das Problem ?
Danke !

[Peter II (Gast)]

Marcus Wiech schrieb:
> "30383032613032306630"
> und nicht:
> "0802A020F0"

30 == '0'
38 == '8'
30 == '0'
32 == '2'

scheinst als ob du ASCII sendest.

[Peter II (Gast)]

nachtrag:

"%02x",

das erzeugt du ja extra Text.

gibt es kein Byte Array in Perl?

[Marcus S. (Gast)]

Peter II schrieb:
> nachtrag:
>
> "%02x",
>
> das erzeugt du ja extra Text.
>

Stimmt.  Das sprintf Text erzeugt und nicht meine HEX Werte erklärt 
dieses verhalten. Das hatte ich so nicht bedacht. Allerdings "benötige" 
ich sprintf um die integer werte in HEX zu konvertieren.

Kann ich mit sprintf HEX anstatt ASCII ausgeben ? ?

[Marcus S. (Gast)]

nachtrag:

$bulb_sock->send("\x08\x02\xA0\x20\xF0") or die "Send Error: $!\n";

funktioniert.

$bulb_sock->send("\x$xval"."\x$yval"."\x$rval"."\x$gval"."\x$bval") or die "Send Error: $!\n";

hingegen nicht und bringt mir

Illegal hexadecimal digit '$' ignored at ledtest.pl line 27.

[Peter II (Gast)]

Marcus Wiech schrieb:
> hingegen nicht und bringt mirIllegal hexadecimal digit '$' ignored at
> ledtest.pl line 27.

was auch klar ist. so geht es nicht.

Suche mal bei Google

"send Byte Array udp perl"

scheint nicht ganz einfach zu sein.

[Marcus S. (Gast)]

Was wäre denn eine "einfache" lösung für diese Aufgabenstellung?

natürlich könnte man jetzt mit C anstatt mit Perl an die Sache 
herangehen. Das wäre aber mit ner Schrotflinte auf Spatzen geschossen 
...

[Peter II (Gast)]

Marcus Wiech schrieb:
> natürlich könnte man jetzt mit C anstatt mit Perl an die Sache
> herangehen. Das wäre aber mit ner Schrotflinte auf Spatzen geschossen

naja für UDP ist es nicht viel mehr Code als in perl.

[Jay W. (jayway)]

Probier mal:

$bulb_sock->send(chr(hex($xval)).chr(hex($yval)).chr(hex($rval)).chr(hex($gval)).chr(hex($bval)));

Alternativ mußt du die Variablen "pack"en. --> perldoc perlpacktut

[John Holmes der Dritte (Gast)]

Marcus Wiech schrieb:
> Wo ist das Problem ?
Du kennst pack/unpack nicht.
http://perldoc.perl.org/perlpacktut.html

[Marcus S. (Gast)]

Jay W. schrieb:
> Probier mal:
> $bulb_sock->send(chr(hex($xval)).chr(hex($yval)).chr(hex($rval)).chr(hex 
($gval)).chr(hex($bval)));


Funktioniert --> Problem gelöst

 Danke!

[Jay W. (jayway)]

Naja, es ist ein klassischer Würgaround, der für diese überschaubare 
Aufgabe dein Problem löst. Schau dir wirklich mal das 
pack/unpack-Tutorial an, damit es bei komplexeren Geschichten nicht laut 
knallt.