如何提取两个字符串之间的线

Question

我是 perl 的绝对初学者，我试图在不同行的 2 个字符串之间提取文本行，但没有成功。看起来我在我的代码中遗漏了一些东西。代码应该打印出文件名和找到的字符串。你知道问题出在哪里吗？非常感谢您的帮助或建议。这是一个例子：

*****************
example:
START
new line 1
new line 2
new line 3
END
*****************

还有我的脚本：

use strict;
use warnings;

my $command0 = "";
opendir (DIR, "C:/Users/input/") or die "$!";
my @files = readdir DIR;
close DIR;
splice (@files,0,2);

open(MYOUTFILE, ">>output/output.txt");
foreach my $file (@files) {
    open (CHECKBOOK, "input/$file")|| die "$!";
    while ($record = <CHECKBOOK>) {
        if (/\bstart\..\/bend\b/) {
            print MYOUTFILE "$file;$_\n";
        }
    }
    close(CHECKBOOK);
    $command0 = "";
}
close(MYOUTFILE);

Answer 1

我想你在这里尝试使用触发器，它可能对你的输入很有效，但是你写错了：

if (/\bstart\..\/bend\b/) {

触发器（范围运算符）使用两个语句，由.. 或... 分隔。你想要的是两个正则表达式与..:

if (/\bSTART\b/ .. /\bEND\b/) 

当然，你也想匹配大小写（大写），或者使用/i修饰符来忽略大小写。您甚至可能希望使用行首锚^ 仅匹配行首，例如：

if (/^START\b/ .. /^END\b/)

你还应该知道，你的整个程序都可以用单行代替，比如

perl -ne 'print if /^START\b/ .. /^END\b/' input/*

唉，这只适用于 linux。 Windows 中的 cmd shell 不会 glob，因此您必须手动执行此操作：

perl -ne "BEGIN { @ARGV = map glob, @ARGV }; print if /^START\b/ .. /^END\b/" input/*

如果无论您做什么都无法打印整个文件，我认为问题出在您的输入文件上。所以花点时间研究一下，确保它是你认为的那样，例如：

perl -MData::Dumper -e"$Data::Dumper::Useqq = 1; print Dumper $_;" file.txt

Answer 2

如果您要匹配多行字符串，您可能需要告诉正则表达式：

if (/\bstart\..\/bend\b/s) {

注意正则表达式后面的s。

Perldoc 说：

• s

将字符串视为单行。即改“.”。匹配任何 任何字符，甚至是换行符，通常它不会 匹配。