加载中...

性能


Perl 让你干想干的事,包括很慢或内存消耗这样的事。此处将告诉你如何避免。

使用 while 而非 for 来迭代整个文件

代替读取文件的所有行并使用 for 处理数组,使用 while 一次仅读取一行。

这两个循环的功能相同:

for ( <> ) {
    # do something
}

while ( <> ) {
    # do something
}

差异是 for 将整个文件读到临时数组,而 while 一次读一行。对于小文件, 这可能不重要。但对于更大的文件,它可能吃掉你的所有可用内存。

在这种情况下使用 while 是一种好实践。

避免不必要的引起和字串化

除非绝对必要,不要引起大字符串:

my $copy = "$large_string";

这将创建两个 $large_string 的拷贝(一个是 $copy,而另一个是引起)。 然而:

my $copy = $large_string;

仅创建一个拷贝。

对于字串化大的数组也是一样:

{
    local $, = "\n";
    print @big_array;
}

这比下面的代码更内存高效:

print join "\n", @big_array;

或:

{
    local $" = "\n";
    print "@big_array";
}

还没有评论.