home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / slperl / tbinmode < prev    next >
Encoding:
Text File  |  1993-10-23  |  406 b   |  13 lines
  1. open(FP, ">bintest") || die "Can't open bintest for write\n";
  2. binmode FP;
  3. print FP pack("C*", 0xaa, 0x55, 0xaa, 0x55,
  4.                     0xff, 0x0d, 0x0a);
  5. close FP;
  6.  
  7. open(FP, "<bintest") || die "Can't open bintest for read\n";
  8. binmode FP;
  9. @got = unpack("C*", <FP>);
  10. close FP;
  11. printf "expect:\t7 elements: aa 55 aa 55 ff 0d 0a\n";
  12. printf "got:\t%d elements: %x %x %x %x %x %02x %02x\n", $#got+1-$[, @got;
  13.