Select Code to Download

typedef struct Net_LogMsgHdr {
   int32        magic;
...
   uint64        bootTS;
   uint64        pad;    
} Net_LogMsgHdr;

my $sock = IO::Socket::INET->new(
                 LocalAddr => '127.0.0.1:6300',
...
my $incoming;
while ($sock->recv($incoming, 65536)) {
   my ($magic, $type, $nextLogChar, $logBufferSize, $length, $override
+, $bootTS, $pad) = unpack "llllllQQ" , $incoming;

"Results on large (or negative) numbers may vary depending on the numb
+er of bits your machine uses to represent integers".