如何把一個(gè)整數(shù)按big endian 16進(jìn)制的方式寫入一個(gè)文件中？

swear77

各位，我不會(huì)perl，請(qǐng)教一個(gè)pack的問題。
想把一個(gè)兩個(gè)文件的長(zhǎng)度以big endian寫入一個(gè)二進(jìn)制文件中，請(qǐng)問應(yīng)該怎么寫，請(qǐng)看我下面的程序的錯(cuò)誤。

my $size1 = (stat($file1))[7];
my $size2 = (stat($file2))[7];

$size = pack('LL', $size1, $size2);

open(FH, ">$newfile")；
binmode(FH);

print FH $size;

close(FH);

swear77

我運(yùn)行時(shí)，$size1=15186644(0x00e76ad4)，$size2=5832808(0x00590068)，我希望二進(jìn)制文件的內(nèi)容是00 67 6a d4 00 59 00 68，可是實(shí)際結(jié)果是68 00 59 00 d4 6a  00，完全倒過來了，怎么辦？

[ 本帖最后由 swear77 于 2008-3-17 10:57 編輯 ]

Lonki

'NN'

churchmice

yeah
network order