pack("?",0)问题 跨平台问题

[ajiva]

例1：
#c语言 int i=4; f.write(&i,sizeof(int));
#perl
$m_wType=pack("i",4); print FILE $m_wType;

例2如何实现？
#我想要C语言 BOOL bI=FALSE;f.write(&bI,sizeof(BOOL));
#perl 如何实现呢？
$m_bI=pack("?",0); print FILE $m_bI;
#?用什么呢？？？？


QQ：1395994
　　

[peifang]

pack('C', 0)

[ajiva]

但我读出来却是 538976288 呢？