From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MLEHMANN / String-CRC32C-1.0 / CRC32C.pm 

            

              
—
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
—
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

              
=head1 NAME
String::CRC32C - Castagnoli CRC
=head1 SYNOPSIS
 use String::CRC32C; # does not export anything by default
 use String::CRC32C 'crc32c';
 $crc = crc32 "some string";
 $crc = crc32 "some string", $initvalue;
=head1 DESCRIPTION
This module calculates the Castagnoli CRC32 variant (polynomial 0x11EDC6F41).
It is used by iSCSI, SCTP, BTRFS, ext4, leveldb, x86 CPUs and others.
This module uses an optimized implementation for SSE 4.2 targets (GCC
and compatible supported, SSE 4.2 must be enabled in your Perl) and the
SlicingBy8 algorithm for anything else.
=cut
package String::CRC32C;
our $IMPL;
BEGIN {
   $VERSION = '1.0';
   @ISA = qw(Exporter);
   @EXPORT_OK = qw(crc32c);
   require XSLoader;
   XSLoader::load String::CRC32C, $VERSION;
}
use Exporter qw(import);
=over
=item $crc32c = crc32c $string[, $initvalue]
Calculates the CRC32C value of the given C<$string> and returns it as a 32
bit unsigned integer.
To get the common hex form, use one of:
   sprintf "%08x", crc32c $string
   unpack "H*", pack "L>", crc32c $string
A seed/initial crc value can be given as second argument. Note that both
the initial value and the result value are inverted (pre-inversion and
post-inversion), e.g. a common init value of C<-1> from other descriptions
needs to be given as C<0> (or C<~-1>).
This allows easy chaining, e.g.
   (crc32c "abcdefghi") eq (crc32 "ghi", crc32 "def", crc32 "abc")
=item $String::CRC32C::IMPL
Contains a string indicating the implementation that will be used. Currently either C<SlicingBy8>
for the portable implementation or C<IntelCSSE42> for the SSE 4.2 optimized intel version.
=back
=head1 PERLMULTICORE SUPPORT
This module supports the perl multicore spoecification
(L<http://perlmulticore.schmorp.de/>): the C<crc32c> function will
relinquish the current thread for crc32c lengths larger than 64k (the
break-even point on my machine is around 128k), so multiprocessing makes
only sense for very long blocks.
=head1 AUTHOR
 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/
CRC32C code by various sources, ported from
https://github.com/htot/crc32c, see sources for details.
=cut
1