perl-redis

#!/usr/bin/perl

use strict;
use Redis;
my $redis = Redis->new(server => '192.168.119.131:8080');

my $num;
my $i;
for ($i=1;$i<10000000;$i++){
   $num = hash($i);
   $redis->select($num);
   $redis->set($i=>"--hello--$i-->$num");
   print "==$i-->$num==\n";
}

sub hash(){
  my $uid = shift;
  return  $uid%10;

}

本文转自cloves 51CTO博客，原文链接:http://blog.51cto.com/yeqing/1681876