Redis連接配接測試腳本
1.部署環境
OS: Windows 7 簡體中文旗艦版 X64 SP1
Perl: ActivePerl-5.16.2.1602-MSWin32-x86-296513.msi
Redis: redis-2.8.19.zip for Windows
Perl Redis: Redis-1.966
安裝方法:ppm install Redis
2.腳本内容
# redis conn_test.pl
use strict;
use redis;
my ($key, $value) = ('list1', 'dbserver_01');
my $redis = Redis->new(server => '127.0.0.1:6379');
$redis->lpush($key, $value);
my $listlen = $redis -> llen($key);
print "List insert data length: $listlen \n";
my $reval = $redis->rpop($key);
print "$key:$reval\n";
print "List pop data length: $listlen \n";
本文轉自 pgmia 51CTO部落格,原文連結:http://blog.51cto.com/heyiyi/1598685