Perl学习笔记二: 尝试优化文件读取

最新推荐文章于 2024-01-16 18:41:37 发布

原创最新推荐文章于 2024-01-16 18:41:37 发布 · 438 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #优化 #file

动态语言专栏收录该内容

3 篇文章

订阅专栏

这篇博客记录了作者在尝试优化Perl程序文件读取速度的过程中，将逐行读取改为一次性读取整文件到数组的过程。尽管预计这会提高效率，但实测结果显示程序运行反而变慢，耗时0.608秒。作者对此现象的原因展开后续研究。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

上次笔记中的Perl程序在读取文件时是一行一行读入的，作者猜想应该比较慢。今天作者试图提高文件读取的速度。

因为Perl允许将文件内容全部读入到一个数组变量中，所以作者将上次的程序修改如下:

#!/usr/bin/perl -w

# Usage: fjoin.pl <dir>
# This program print all .cpp/.h files in <dir> to stdout

use 5.010;
use strict;
use warnings;

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

    if(! $success)
    {
        return;
    }

@lines = <FHANDLE>;
close FHANDLE;

    foreach (@lines)
    {
        print $_;
    }
    #if(@lines)
    #{
        # If the last line doesn't end with a LF, append one.
        #if(!($lines[@lines - 1] =~ //n$/))
        #{
            #print "/n";
        #}
    #}
}

# The main program
my $dir = $ARGV[0];
my @allFiles;
my $file;

if(!defined($dir))
{
die "Directory not defined";
}

# Iterate all files in the dir
@allFiles = <$dir/*>;

if(! @allFiles)
{
die "Can not open the directory $dir";
}

foreach $file (@allFiles)
{
    if($file =~ //.cpp$/)
    {
        &printFile($file);
    }
    elsif($file =~ //.h$/)
    {
        &printFile($file);
    }
}

但是运行结果却反而比上次的更慢，耗时0.608秒。

具体原因是什么，有待后续研究。