packing with "n"
authorheiko
Tue, 22 Jan 2002 20:36:00 +0100
changeset 16 6b2a0de29990
parent 15 b9baa645576a
child 17 b51d4c6816e7
packing with "n"
me8100_test_int/test.pl
--- a/me8100_test_int/test.pl	Tue Jan 22 20:30:44 2002 +0100
+++ b/me8100_test_int/test.pl	Tue Jan 22 20:36:00 2002 +0100
@@ -11,7 +11,7 @@
 	sysread(DEV, $val, 2);
 	$val = unpack("s", $val);
 	print "Hi, got a signal, read $val\n";
-	print "<", unpack("b16", pack("N", $val)), ">\n";
+	print "<", unpack("B16", pack("n", $val)), ">\n";
 };
 
 open(DEV, $DEV)