memcahced perl 测试

安装Cache::Memcahced模块

首先安装配置cpan,使用cpan来安装Cache::Memcahced模块

yum -y install cpan

vim /usr/share/perl5/CPAN/Config.pm

将镜像路径设置为:

‘urllist‘ => [q[http://mirrors.ustc.edu.cn/CPAN/]],

安装:

perl -MCPAN -e shell

cpan[1]> install Cache::Memcahced

开始安装……

创建perl文件执行测试:

vim mem.pl

内容如下:

#!/usr/bin/perl

use Cache::Memcached;

my $key = "foo";

my $value = "bar";

my $expires = 3600; # 1 hour

my $memcached = Cache::Memcached->new({

servers => ["127.0.0.1:11211"],

compress_threshold => 10_000

});

$memcached->add($key, $value, $expires);

my $ret = $memcached->get($key);

print "$ret\n";

执行mem.pl输出内容为bar说明正确;

memcahced perl 测试

时间: 2024-10-04 03:41:33

memcahced perl 测试的相关文章

Perl自动化测试(二) 编写第一个测试程序

搭建好测试环境之后呢,今天使用Test:Simpled模块来编写第一个perl测试小程序. 1.编写脚本,并保存到合适的位置.比如保存到D:\Tech\Perl\t #!/usr/bin/perluse strict;use warnings;use Test::Simple test=>1; //test=>1表明测试计划里面只有一个测试用例. sub hello_world{ return "hello world"} ok(hello_world() eq "

Perl脚本访问Greenplum数据库安装指导

安装前准备 (1)操作系统(系统上面要安装一些必备的开发工具(比如gcc等)) linux-82:/home/PlODBC # cat/etc/SuSE-release SUSE Linux EnterpriseServer 11 (x86_64) VERSION = 11 PATCHLEVEL = 1 (2)安装所需的软件包 greenplum-connectivity-4.3.0.0-build-2-SuSE10-x86_64.zip --GP官网下载,GP的JDBC和ODBC驱动 DBI-

win8(x64)下编译htk3.4.1

win8(x64)下编译htk3.4.1 参考教程: HTKBOOK  http://htk.eng.cam.ac.uk/download.shtml windows下编译htk3.4傻瓜式教程  http://wenku.baidu.com/link?url=qNDgSxipOLK3wFNBd7GSzzlay9SMatcgUtE_qmgcinQ8LQfHzE5km-BO8cF6Z8ZdYcFM5-ZtRdZN7Jabo6qdNr2ZtSS9EuNce0l8wsh-Gxm HTK学习笔记(一)在

IDispatch接口 - 跨语言调用

当一个COM接口支持IDispatch的时候(Dual接口),它就可以被其他语言调用. 这里我用perl试了一下. perl测试代码 use warnings; use strict; use Win32::OLE; use constant ADS_UF_ACCOUNTDISABLE => 2; use constant ADS_SCOPE_SUBTREE => 2; my $MyCom = Win32::OLE->new( "MyCom.MyCar" ) or d

批量修改主机密码并发送到邮箱

1. 前言 需求:一批云主机,要求每周修改一次密码. 2. 实践 使用 ansible + sendmail 即可实现. 主机信息: (1)安装 sendmail wget http://caspian.dotconf.net/menu/Software/SendEmail/sendEmail-v1.56.tar.gz tar zxf sendEmail-v1.56.tar.gz -C /usr/src/ cd /usr/src/sendEmail-v1.56/ cp -a sendEmail

Perl 学习笔记-文件测试

1.文件测试操作符 针对文件和目录的测试操作符: -r/-w/-x/-o: 文件或目录, 对有效的(负责运行这个程序的)用户或组来说是可读/写/执行/拥有 的; 这些测试位会查看文件的权限位, 以此判断哪些操作是允许的, 如果系统使用访问控制列表(ACL), 那么测试就按列表进行判断, 但是只是测试结果只是操作系统的看法, 但是受实际情况限制, 运行的事未必可行, 如空文件运行运行, 但是并没有什么意义. -R/-W/-X/-O: 文件或目录, 对实际的用户或组来说是可读/写/执行/拥有 的;

perl 脚本测试

原文  http://blog.csdn.net/johnny710vip/article/details/8905239 这是一篇关于perl脚本测试的总结性文章,其中提到了很多实用的模块,如果文中介绍的不够详细,请到cpan上搜索该模块并查阅其文档.  1基本语法检查 Perl语言的哲学是“There is more than one way to do it”,很多讨厌Perl的人总是拿Perl的这个特性来攻击Perl,而喜欢Perl的人却又极力推崇它.这里不讨论这个特性是好是坏,但不可否

perl学习笔记——文件测试

文件测试主要用于查看如文件是否存在.文件大小.文件更新时间等信息. 文件测试操作符 -e  测试文件是否存在: die "Oops!A file called '$filename' already exists.\n" if -e $filename; -M 测试文件是否保持持续的更新,比如测试某个程序的日志文件是否保持每一周或两周更新. 此处测试的是文件句柄. warn "Config file is looking pretty old!\n" if -M C

Perl文件测试操作和stat函数

在shell中通过test命令或者中括号[]可以进行文件测试以及其它类型的测试,例如判断文件是否存在,比较操作是否为真等等.perl作为更强大的文本处理语言,它也有文件测试类表达式,而且和shell的文件测试用的字母符号都类似. perl中测试文件的属性来源是perl的内置函数stat,它可以获得文件的13项属性.后文会介绍该函数. 测试符 测试符号都是短横线开头,加一个字母.例如,测试文件是否存在-e "a.log".在可能产生歧义的情况下,这些测试符可以用括号包围,例如:(-e &