home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / perl-4.036.tar.gz / perl-4.036.tar / perl-4.036 / atarist / test / tbinmode < prev   
Text File  |  1993-02-08  |  406b  |  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.