perl
流星99在江湖
这个作者很懒,什么都没留下…
展开
-
perl中用sort进行数字排序
perl中采用sort函数可以对数组进行排序,例如: @a1=(4,5,1,3,6,2,10); $ordered = join ",",sort @a1; print "ordered $ordered\n" 但是输出结果并非按照数字排序的结果,而是采用ascii码,要按照数字排序只需以以下方式调用: @a1=(4,5,1,3,6,2,10); $ordered原创 2013-05-08 20:11:08 · 4394 阅读 · 0 评论 -
多个缓存复制的问题
perl如何将数据复制到多个Memcached服务器上面: #!/usr/bin/perl use Cache::Memcached; my $con_ref; my $servers= [ '127.0.0.1:11221', '127.0.0.1:11222', '127.0.0.1:11223', '127.0.0.转载 2013-05-12 14:23:13 · 2089 阅读 · 0 评论 -
Dog -Piling:缓存失效遇上大量访问
Dog-Piling是指当缓存中的数据失效时,遇到大量的请求,此时大量的请求涌向数据库,导则数据库超负荷。(数据获取的时间大于服务器需要响应的用户的时间) Dog-Piling与cache stampede和thundering herd同义。 一种避免dog-piling效应的旧解决方案: 首先定义以下变量: my $STALE_REFRESH = 1; my $STALE_CREAT转载 2013-05-12 13:24:10 · 2120 阅读 · 0 评论