Perl学习笔记三: 再次尝试优化文件I/O

作者重写了上次程序中的printFile函数，如下:

# Sub: print a file to stdout
# Arguments:
#     $_[0]  The file name
sub printFile
{
    my $success = open FHANDLE, "<", $_[0];
    my @lines;

    if(! $success)
    {
        return;
    }

    print <FHANDLE>;

    close FHANDLE;

}

测试结果比上次略快一点: 0.506秒。

几次比较下来，反而是第一次写的简单循环运行最快，颇有意思。