git.sur5r.net Git - rgb2r-2017/blob - crc16.pl

   1 use Digest::CRC qw(crcccitt);
   2 use Data::Dumper;
   3
   4
   5 my $data = join("", map {chr $_} (1..16));
   6
   7 printf "%04X\n",crcccitt("$data");
   8