perl – 如何提高速度的通用例程？

发布时间：2020-12-16 06:11:19 所属栏目：大数据来源：网络整理

导读：我需要一个有效的commify过滤器或例程来与Template :: Toolkit一起使用.它将在页面上多次使用.它应该支持小数. 这个是在The Perl Cookbook找到的： sub commify { my $text = reverse $_[0]; $text =~ s/(ddd)(?=d)(?!d*.)/$1,/g; return scalar rever

我需要一个有效的commify过滤器或例程来与Template :: Toolkit一起使用.它将在页面上多次使用.它应该支持小数.

这个是在The Perl Cookbook找到的：

sub commify {
    my $text = reverse $_[0];
    $text =~ s/(ddd)(?=d)(?!d*.)/$1,/g;
    return scalar reverse $text;
}

有更有效的方法吗？

解决方法

在尝试优化任何内容之前,请确保它实际上是一个问题.使用分析器查找代码中的问题区域并关注这些区域.

commify解决方案与您可以获得的一样好,但如果您需要绕过它,还有其他一些事情可以做：

>如果要重复汇总相同的数字,请使用类似Memoize的内容来缓存结果>如果不可能改变,预先计算所有数字.>尽可能缓存已处理的模板>对您的网络服务器使用反向代理设置,将大量处理交给后端服务器.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!