如何在不牺牲性能的情况下保持良好的代码组织？

Question

我同意这样的观点：变量在使用之前不应被初始化。如果由使用该变量的代码来记住变量所代表的含义，则可以更容易地记住它，并且减少了变量在初始化和正确使用之间被误用的机会。

当该变量在一两个循环内使用时就会出现问题。然后，初始化成本会成倍增加，并且可能开始影响性能。

在 Perl 中（或一般情况下，视情况而定），它们是否有任何巧妙的小技术，允许您将变量的初始化放在循环中，但只在第一次传递时初始化？

我想到了类似的东西：

my $variable = undef;
while ($outer_loop) {
    while ($inner_loop) {
       $variable = $variable || 'initial_value'
    }
}

注意：这意味着 $variable 不会在循环内重新分配。

现在也许是我，但这似乎有点不优雅。

所以，这是我的问题：有没有一种更简洁的方法来做到这一点，或者我只需要克服自己并在代码组织上妥协，或者吸收上面的“不优雅”的解决方案？

Answer 1

要解决评论中的问题（变量在函数中计算）：

• 用于优化您想要的此类逻辑的标准技术称为（该函数的）记忆化。在其他方法中，Perl 有 Memoize 模块，或者您也可以自己做。

   使用 Memoize；
    memoize('slow_function');
    while ($outer_loop) {
        而（$inner_loop）{
            我的 $variable = Slow_function(arguments);
        }
    }
  

• 此外，如果函数在整个循环中始终生成 100% 相同的值（根据设计），只需在循环之前的语句中初始化变量即可进行穷人记忆。

  如果你有一个3页长的循环（例如，与循环内部相比，循环之前的初始化太长，导致可读性问题），那么你遇到的编码问题不仅仅是初始化行的位置，并且需要首先重构您的代码。

  顺便说一句，如果您将变量放在循环之前唯一关心的是它会破坏“此变量仅用于此循环内”的可读性上下文，您可以通过以下任一方式轻松解决它：

  • 拥有详细记录的代码 - 相应地命名变量，或向初始化行添加注释，或两者兼而有之。

  • 或者，通过将变量命名为 my $default_value_for_next_loop = long_func(); ，并在循环内部实际创建一个从中初始化的本地循环变量： my $loop_var = $default_value_for_next_loop;

另外，就您自己的方法而言 ($variable = $variable || 'initial_value';);
我个人认为这绝对优雅且可读，但是！！！我非常确定它实际上比直接的 $variable = $default_value_for_next_loop; 执行更差，因为它有一个条件语句而不是直接赋值。但如果没有基准测试我就无法确定。

Answer 2

当在一个或两个循环内使用该变量时，就会出现问题。然后，初始化成本会成倍增加，并且可能开始影响性能。

是吗？你测量过吗？如果您的 $variable 适用于两个循环中的代码，那么我将按如下方式编写您的循环：

my $variable = 'initial_value';
while ($outer_loop) {
    while ($inner_loop) {
       # ...
    }
}

这样，读者就知道在以下部分中使用了 $variable代码，以及它的初始值是多少。在您的代码片段中，读者必须在循环深处的某个位置找到实际初始值。

这里不太可能出现性能问题，但如果这是一个关键因素，您应该始终测量性能。

Answer 3

我认为你的指导有点太过分了。阻止滥用变量的最佳方法是将其声明延迟到需要它之前。 （从而将其限制在尽可能小的词法范围内。）延迟初始化并不能防止误用；它只是为某人使用未定义的值、用自己的值抢占您的初始化或将您的变量用于完全不相关的目的创造了机会。

如果变量需要初始/默认值，则应尽可能将其作为声明的一部分来完成。这清楚地表明该变量具有起始值。

my $x = 1;
my $y = f($x);

延迟初始化意味着没有初始值。如果没有或者您无法提前确定它，那也没关系，但您稍后会通过偷偷添加 $var //= 'value' 来牺牲清晰度。

对于需要在循环迭代中保留其值的变量，您必须在循环外声明它们。有时我将循环包装在额外的块中，以防止这些变量泄漏到以下代码中：

{
    my $i = 5;
    for (1 .. 10) {
        say $i++;
    }
}