关于序列化：获取 Perl 打包/解包模板的元素数

Get the number of elements for a Perl pack/unpack template

给定 pack 或 unpack 函数的模板字符串，是否有一种简单的方法来确定 pack 期望的附加参数的最小数量，和/或返回的值的最小数量一个成功的 unpack?

例如：

1
2
3

unpack_element_count("vVC16a16") => 19 # a16 gives one string
pack_element_count("(VVVvx4)2") => 8 # x4 ignored, 4*2
pack_element_count("v*") => 0

$count =()= unpack($template,""); 听起来不太好，因为 unpack 的文档在尝试解包太短的字符串时说，"结果定义不明确"。我想我可以传递一个包含大量零字节的字符串，但这听起来效率很低，而且可能对某些更高级的模板无效？

如果有帮助，我实际上主要只对具有固定元素计数的模板感兴趣，这意味着没有 * 计数，没有 / 前缀计数数据格式等。所以对这种有限情况的回答会有所帮助；对更一般情况(变量计数的最小值)的回答会很有趣。