spindle.queued.net Git - xodist/blob - crcimg.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use String::CRC32;
   5
   6 my ($crc, $buf);
   7 while (read(STDIN, $buf, 0x20000) eq 0x20000) {
   8         $crc = crc32($buf);
   9         printf("%08lx\n", $crc);
  10 }