zoukankan      html  css  js  c++  java
  • 使用Perl批量读取文件最后行

    使用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 ! 
    ");
    
    foreach my $file (sort readdir DIR){            #遍历目录下的文件
        if($file =~ /^./){
            next;
        }
        #print "$indir$file
    ";
        print OUTFILE "		    $indir$file  		 
    ";   #输出文件名及其路径
    
        my $last_line = `tail -10 $indir$file`;         #反引号捕获
        print OUTFILE "$last_line 
    ";
        print OUTFILE "
    
    
    ";                            #分割不同文件之间的换行
    }
    
    close OUTFILE;
    rename 'temp_line','filelast_line';
    
    print "
    Output file: filelast_line
    ";
    
  • 相关阅读:
    hdu 5112 A Curious Matt (水题)
    hdu 5464 Clarke and problem(dp)
    (2)线程优先级、线程安全
    (1)进程与线程
    并发与并行
    (5) 守护线程与线程阻塞
    java线程中断2
    sleep()和wait()的区别
    java线程中断
    java创建线程的三种方式及其对比
  • 原文地址:https://www.cnblogs.com/OneFri/p/6961658.html
Copyright © 2011-2022 走看看