论坛 › Perl › perl-redis

FXMAR 发表于 2018-8-30 11:14:22

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;$iselect($num);
　　$redis->set($i=>"--hello--$i-->$num");
　　print "==$i-->$num==\n";
　　}
　　sub hash(){
　　my $uid = shift;
　　return$uid%10;
　　}

查看完整版本: perl-redis