サブ式から値を取得できません

Question

ソケットからヌル区切りのデータブロックを読み込んでいます。 nullを検出すると、これまでに読み込まれたブロックが処理のために渡され、バッファはnullの後に残されたもの（通常は何もない）に切り捨てられます。

do { 
    $in .= <$sock> 
} while(!in =~ /^(.*?)\x00(.*)/) ; 
print "A:[ $in, $block ]\n"; 
$block = $1; 
$in = $2; 
print "B:[ $in, $block ]"; 

結果：

A:[ {"hn":"ITtestKA","v":{"m":4,"u":4}} 
, ] 
B:[ , ] 

は、なぜ私は部分式$1、$2からデータを選択することはできませんか？

Answer 1

もう一つのアイデアは、<$sock>$sockから読み込みますどのくらいを決定する値$/を変更することです。あなたは

local $/="\0" 

を行うのであれば、たとえば、その範囲のために、<$sock>は、次の（ヌル区切り）ブロックの最後まで読みます。

編集：入力がNULLで区切られたブロックから構成されている場合、それはあなたがラインでの入力行を読み取ることになるので、そのデフォルト値を持つ$/で<$sock>を使用しても意味がありません。

1. \0に設定$/と、次のブロックを読み取るために<$sock>を使用します。だから私は2つのアプローチがあると思います。
2. 固定サイズのチャンクを読み取り、その中のヌルバイトを検索して次のブロックを抽出します。このシナリオでは、<$sock>と$/をチャンクサイズの参照（例：local $/=\4096）に設定するか、read/sysreadを使用します。また、ヌルを検索し、その場合はチャンクを抽出するのにindex/substrを使用します。

Answer 2

inと$inは異なるものです。 strictを使用しますか？そうでなければ、"in"と正規表現をマッチさせます。

#! /usr/bin/perl 
use warnings; 
use strict; 
use feature qw{ say }; 

my @socket = ("abcd\x00efgh", 
       "ijkl", 
       "mnop\x00qrst", 
       "uvwx\x00", 
); 

my ($in, $block); 

while (@socket) { 
    do { 
     $in .= shift @socket; 
    } while ($in !~ /^(.*?)\x00(.*)/) ; 
    say "A:[ $in, $block ]"; 
    ($block, $in) = ($1, $2); 
    say "B:[ $in, $block ]"; 
} 

Answer 3

結合演算子の否定形があります：

while($in !~ /^(.*?)\x00(.*)/)