]> spindle.queued.net Git - xodist/blob - crcimg.pl
note hardware enablement opportunities
[xodist] / 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 }