use strict; 2 use warnings; 3 my $str=amp;quot;A..B..amp;quot;; 4 my @vec=split /\.\./,$str; 5 foreach my $key (@vec) 6 { 7 my $len=length($key); 8 print STDERR amp;quot; ...……
安装Bloom::Filter之前要先安装Digest::SHA1
#!/usr/bin/perluse Bloom::Filter;my $bf=Bloom::Filter-amp;amp;gt;new(capacity =amp;amp;gt; 10,error_rate =amp;amp;gt; .001);my @keys=qw/a s d f g h j k l z/;$ ...……