Question

提高空间利用率：如定长优化： sizeof(item)=sizeof(chunk);

测试 1：HASH 数求余

#! /usr/bin/perl
# usage: $0 node1 node2 ...
use strict;
use warnings;
use String::CRC32;

my @nodes = @ARGV;
my @keys = ('a'..'z');
my %nodes;

foreach my $key ( @keys ) {
  my $hash = crc32($key);
  my $mod = $hash % ( $#nodes + 1 );
  my $server = $nodes[ $mod ];
  push @{ $nodes{ $server } }, $key;
}

foreach my $node ( sort keys %nodes ) {
  printf "%s: %s\n", $node, join ",", @{ $nodes{$node} };
}