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";
}
~~~
