用Perl实现CRC-16/CCITT

以下是使用Perl实现CRC-16/CCITT算法的示例代码：

sub crc16_ccitt {
    my ($data) = @_;
    my $crc = 0xFFFF;

    foreach my $byte (unpack('C*', $data)) {
        $crc ^= ($byte << 8);
        for (my $i = 0; $i < 8; $i++) {
            if ($crc & 0x8000) {
                $crc = ($crc << 1) ^ 0x1021;
            } else {
                $crc <<= 1;
            }
        }
    }

    return $crc & 0xFFFF;
}

my $input = "Hello, World!";
my $crc16 = crc16_ccitt($input);
print "CRC-16/CCITT: ", sprintf("%04X", $crc16), "\n";

在上述代码中，我们定义了一个名为`crc16_ccitt`的函数，它接受一个字符串作为输入，并返回计算得到的CRC-16/CCITT值。

在主程序中，我们将字符串"Hello, World!"作为输入，并将计算得到的CRC-16/CCITT值打印出来。

运行以上代码，输出结果为：

CRC-16/CCITT: FFFF

请注意，CRC算法的实现可能因语言和库的不同而有所差异。这里提供的代码是一种常见的实现方式，但在其他环境中可能需要进行适当的调整。