nginx负载均衡302跳转-基于perl的一致性哈希

package rewrite;

use nginx;

use Hash::ConsistentHash;

use String::CRC32;
sub handler {
my $r = shift;
my $uri = $r->uri;
my $domain = $r->header_in(host);
my @crr = qw( 10.0.0.1 10.0.0.2 10.0.0.3 10.0.0.4 10.0.0.5 );
my $chash = Hash::ConsistentHash->new(
buckets => [@crr],
hash_func => &crc32
);

my $url = $chash->get_bucket($uri);
$url = "http://".$url."/".$domain.$uri;
$r->header_out(Location => $url);
$r->status(302);
$r->send_http_header;
return OK;
}
1;
__END__

server {
listen 80 ;
server_name www.hello.com;
root /tmp/hello;
location ~ .exe {
perl rewrite::handler;
}
}