受信したソケットメッセージをPerlでどのように変更できますか？

Question

私は2つのソケットとactaからスイッチとしてメッセージを送受信するPerlプログラムを書いています。私は1つのソケットから受信した受信メッセージを修正し、データに3バイトを追加し、最後に変更されたメッセージを別のソケットに送信する必要があります。 select（）... sysread（）... syswrite（）のメカニズムを採用して、ソケット間のメッセージをポーリングします。受信したメッセージは変更中に$ bufferに保存されます。その後、私は@msgに3つのバイトを挿入することができます

my $hexmsg = unpack("H*", $buffer); 
my @msg = ($hexmsg =~ m/../g); 

：

今、私が受信したメッセージを取得するには、次の方法を使用することができます。しかし、@msgのメッセージをスカラー（$ bufferなど）にパックし、syswrite（）によって別のソケットに送る方法はわかりません。誰か助けてくれますか？前もって感謝します！

ところで、$ bufferバイナリのメッセージですか？

Answer 1

はい、$ bufferのメッセージはバイナリです（私がそのことを正しく意味していると思われる場合）。 @msgに解凍する唯一の理由は、バイトを挿入することだけです。代わりにsubstrを使用し、変更された$バッファを書き出してください。あなたは@msgで他のことをやっている場合、あなたはそれを書き込む前に、SUBSTRインサートをやっていることだけでなく、 を使い続けることができ

substr($buffer, 0, 0, "\x01\x02\x03"); # insert 3 bytes at beginning. 

、またはあなたがSUBSTR使用したり、パックまたは 分割することができたり：たとえばあなたが必要とする部分を解析するvecまたは正規表現。より具体的なヘルプを得るには、 が何をしているのかを説明する必要があります。

Answer 2

unpackを使用して$bufferからデータを取得した場合は、packを使用してデータを戻してみましたか？