Question

在下面的代码中，我尝试打印每一行及其行号。有没有其他方法可以使用Perl优化下面的代码？

#!/usr/bin/perl
use strict;
use warnings;
open my $fh,"<","exercise.csv";
while(<$fh>)
{
   print "$.=====>$_";
}
close $fh;

Answer 1

没有。

当您进行优化时，您会看到实现目标效率较低的方法。这通常是算法的，并且查看循环正在发生的地方是一个良好的开端。

然后有资源使用优化 - 磁盘IO通常是最昂贵的操作 - 但是你需要来完成你正在做的所有IO，而你＆＃39 ;不要做任何冗余的IO。

有时 - 系统调用或“淘汰”＆＃39;到其他二进制文件（通过system或反引号）可能会产生开销。但你也不这样做。

基本上 - 您的代码不够复杂，不会出现任何明显的低效问题。