perl-子字符关键字

Question

我有一个文本文件，其中有很多行，我需要在此文件关键字中进行搜索，如果存在写入日志文件行，则关键字是关键字，并在下面的一行和一条线上行。现在，如果查找全部写入，我不知道如何在下面和更高版本上编写行，现在搜索或写关键字不函数。感谢您的建议。

my $vstup = "C:/Users/Omega/Documents/Kontroly/testkontroly/kontroly20220513_154743.txt";
my $log = "C:/Users/Omega/Documents/Kontroly/testkontroly/kontroly.log";
    
open( my $default_fh, "<", $vstup ) or die $!;
open( my $main_fh,    ">", $log )    or die $!;

my $var = 0;
while ( <$default_fh> ) { 
    if (/\Volat\b/)
        $var = 1;
    }
    if ( $var )
        print $main_fh $_;
    }
}

close $default_fh;
close $main_fh;

Answer 1

下面的方法使用一个信号量变量和一个缓冲区变量来提供所需的行为。

请注意，用于简单测试的A替换了所使用的图案。

#!/usr/bin/perl

use strict;
use warnings;


my ($in_fh, $out_fh);
my ($in, $out);
$in = 'input.txt';
$out = 'output.txt';

open($in_fh, "< ", $in) || die $!."\n";
open($out_fh, "> ", $out) || die $!;

my $p_next = 0;
my $p_line;
while (my $line = <$in_fh>) {
  # print line after occurrence
  print $out_fh $line if ($p_next);

  if ($line =~ /A/) {
    if (defined($p_line)) {
      # print previous line
      print $out_fh $p_line;

      # once printed undefine variable to avoid printing it again in the next loop
      undef($p_line);
    }
    
    # Print current line if not already printed as the line follows a pattern
    print $out_fh $line if (!$p_next);
    
    # toggle semaphore to print the next line
    $p_next = 1;

  } else {
    # pattern not found.
    
    # if pattern was not detected in both current and previous line.
    $p_line = $line if (!$p_next);
    $p_next = 0;
  }
}
close($in_fh);
close($out_fh);