☰

如何通过匹配模式读取目录中的多个文件？

tag-icon • tag-icon perl
如何通过匹配模式读取目录中的多个文件？

我有一个包含“x”个文件的目录。一些文件包含“Pass”字符串，另一些文件包含“Fail”。我想读取这两个文件，并将通过和失败的文件分别存储在两个不同的目录中。我可以读取文件，但无法匹配字符串。

#!/usr/bin/perl

use strict;
use warnings;

use Path::Class;

my $src = dir("/home/Narayanan/Cov_script/logs/");
my $pattern = "TEST IS PASSED";
my $i = 0;
my @log_files = grep /[.] log\z/x, $src->children;

for my $log_file ( @log_files ) {
    my $in = $log_file->openr;
    while (my $line = <$in>) {
    my $string = $line; 
#| `grep  { $line eq $pattern } `

        print "OUT: $string";
    }
}

答案1

有一个 =~ 运算符用于将字符串与模式匹配。这对我来说似乎有用（我认为应该是foreach而不是，但是为了和foreach是同义词，因此您可以使用其中任一方式）：

foreach my $log_file ( @log_files ) {
    my $in = $log_file->openr;
    while (my $line = <$in>) {
       my $string = $line; 
       if ($line =~ /$pattern/)
       {
         #| `grep  { $line eq $pattern } `
           print "OUT: $string";
       }
    }
}

相关内容