Hello,
I'm new to POE and after a few hours of peeking around, I'm sure, I'll like
it.
Good work!
I need to write a TCP server, grabbing and processing data which are not
line based.
My Data are starting with a header, containing the message length in byte 2
to 4 of my packet.
Currently, I'm reading the first 4 bytes, take the length from bytes 2-4 and
read the rest, which is $lengths-4.
Writing to the client, I build the complete packet and put it on the line.
very basic, but it works. I'm sure, POE will give a better way of doing
this.
I thought, I could use POE::Filter::Block, but this seems to need static
block sizes and the length-prepended, which I do not understand L to use.
As a hint: in the first byte of the packet, there is always 0x07, so it
would be feasible to calculate the length from the first 4 bytes,
subtracting 0x0700000 from it ?!?
I tried to use the following coders and will start everything with
my $filter = POE::Filter::Block->new(LengthCodec => [ \& stefans_encoder, \&
stefans_decoder ] );
sub stefans_decoder {
my $stuff = shift;
$$stuff =~ /^(.)(...)/;
return hex($2);
}
sub stefans_encoder {
my $stuff = shift;
substr($$stuff, 0, 0) = "\7" . sprintf("%06x", length($$stuff));
return;
}
But it does not work.
What would be a good other filter to use or how would I do en
encoder/decoder for Filter::Block?
Any idea?
Thank you.
Stefan
