Perl脚本：对日志文件进行排序。

Sang.P 发表于 Dev

桑平

尝试编写一个脚本来打开目录并逐行读取多个日志文件，并搜索诸如以下示例的信息：“ Attendance = 0”以前我曾经grep "Attendance =" *搜索过我的信息，但是试图编写脚本来搜索我的信息信息。需要您的帮助才能完成此任务。

  #!/usr/bin/perl

  use strict;
  use warnings;
  my $dir = '/path/';
  opendir (DIR, $dir) or die $!;
  while (my $file = readdir(DIR))
   {
   print "$file\n";
   }
   closedir(DIR);
   exit 0;

斯蒂维布

我更喜欢用File::Find::Rule这种东西。它保留路径信息，并且易于使用。这是一个可以满足您需求的示例。

use strict;
use warnings;

use File::Find::Rule;

my $dir = '/path/';
my $type = '*';

my @files = File::Find::Rule->file()
                            ->name($type)
                            ->in(($dir));

for my $file (@files){

    print "$file\n\n";

    open my $fh, '<', $file or die "can't open $file: $!";

    while (my $line = <$fh>){
        if ($line =~ /Attendance =/){
            print $line;
        }
    }
}

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。