摘要:
摘自:http://www.cnblogs.com/zhangchaoyang 作者:Orisun#!/usr/bin/perluse Bloom::Filter;my $bf=Bloom::Filter->new(capacity => 10,error_rate => .001);my @keys=qw/a s d f g h j k l z/;$bf->add(@keys);while(<>){ chomp; print "Found $_\n" if $bf->check($_);}$bf=Bloom::Filter-> 阅读全文