等效于Java的

Question

Perl的“包”功能在Perl的，我有下面的代码行：

pack("C (N)$cnt", $cnt , @items); 

我有问题，调换此为Java。我该怎么做？

Answer 1

我的Perl是很生疏，但看着man perlfunc后，我觉得这可能是你想要什么：

List<Integer> items = ...; 
ByteArrayOutputStream baos = new ByteArrayOutputStream(); 
DataOutputStream stream = new DataOutputStream(baos); 
stream.write(items.size()); 
for (Integer item : items) { 
    stream.writeInt(item); 
} 
stream.flush(); // not sure this is strictly necessary 
byte[] result = baos.toByteArray();