使用Perl批量读取文件最后行

面对成百上千个文件，有时我们需要查看它的最后行，单个文件打开将耗费大量时间，而通过Perl提取出最后行，将快速的帮助我们处理繁琐的事务。

特性

整个目录完全遍历，自动提取最后行

提取出的文件结构

Perl代码

#!/usr/bin/perl

use warnings;

###########################################

#./readlast_line.pl log/

###########################################

my $indir = $ARGV[0];

opendir DIR, $indir or die "Connot open $indir: $!";

unlink "temp_line";

open(OUTFILE, ">>temp_line") || die ("Could not open file temp_line ! \n");

foreach my $file (sort readdir DIR){            #遍历目录下的文件

    if($file =~ /^\./){

        next;

    }

    #print "$indir$file\n";

    print OUTFILE "\t\t    $indir$file  \t\t \n";   #输出文件名及其路径

    my $last_line = `tail -10 $indir$file`;         #反引号捕获

    print OUTFILE "$last_line \n";

    print OUTFILE "\n\n\n";                            #分割不同文件之间的换行

}

close OUTFILE;

rename 'temp_line','filelast_line';

print "\nOutput file: filelast_line\n";

巴特西

使用Perl批量读取文件最后行

使用Perl批量读取文件最后行

特性

提取出的文件结构

Perl代码

最新文章

热门文章