免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1486 | 回复: 0

Dancer YML Session 每个请求无谓创建导致硬盘用光问题解决 [复制链接]

论坛徽章:
0
发表于 2016-10-22 09:05 |显示全部楼层
Dancer::Session
思路:只有需要写入时新建

步骤:

在write中添加参数:create_ifno

  1. sub write {
  2.     my ($class, $key, $value) = @_;

  3.     return unless $key;
  4.     $key eq 'id' and croak 'Can\'t store to session key with name "id"';

  5.     my $session = get_current_session(0,create_ifno=>1);
  6.    
  7.     $session->set_value($key, $value);

  8.     # TODO : should be moved as an "after" filter
  9.     $session->flush unless $session->is_lazy;
  10.     return $value;
  11. }
复制代码
get_current_session 中选择性新建
  1. sub get_current_session {
  2.     shift;
  3.     my %p       = @_;
  4.     my $sid     = engine->read_session_id;
  5.     my $session = undef;
  6.     my $class   = ref(engine);

  7.     $session = $class->retrieve($sid) if $sid;

  8.     if ($p{create_ifno}) {

  9. ...
复制代码
read 修复可能的错误
  1. sub read {
  2.     my ($class, $key) = @_;
  3.     return unless $key;
  4.     my $session = get_current_session();
  5.     return $session->get_value($key) if(defined $session);
  6. }
复制代码



您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP