Perl 读取行问题

Question

我要读取一个文件，例如 test.test 其中包含

 #test:testdescription\n
 #cmd:binary\n
 #return:0\n
 #stdin:|\n
 echo"toto"\n
 echo"tata"\n
 #stdout:|\n
 toto\n
 tata\n
 #stderr:\n

我成功获取的 #test: 之后的内容； #cmd：等等... 但对于 stdin 或 stdout，我想将下一个 # 之前的所有行放入表 @stdin和@stdout。

我做了一个循环 while ($line =) 所以它会查看每一行。如果我看到一个模式 /^#stdin:|/，我想移动到下一行并将该值设置为 表直到我看到下一个#。

如何移至 while 循环中的下一行？

Answer 1

通过为 $ 选择适当的值，可以轻松处理此文件格式。 /：

use strict; use warnings;

my %parsed;

{
    local $/ = '#';
    while ( my $line = <DATA> ) {
        chomp $line;
        my $content = (split /:/, $line, 2)[1];
        next unless defined $content;
        $content =~ s/\n+\z//;
        if ( my ($chan) = $line =~ /^(std(?:err|in|out))/ ) {
            $content =~ s/^\|\n//;
            $parsed{$chan} = [ split /\n/, $content];
        }
        elsif ( my ($var) = $line =~ /^(cmd|return|test)/ ) {
            $parsed{ $var } = $content;
        }
    }
}

use YAML;
print Dump \%parsed;

__DATA__
#test:testdescription
#cmd:binary
#return:0
#stdin:|
echo"toto"
echo"tata"
#stdout:|
toto
tata
#stderr:

输出：

---
cmd: binary
return: 0
stderr: []
stdin:
  - echo"toto"
  - echo"tata"
stdout:
  - toto
  - tata
test: testdescription

Answer 2

根据用户的评论进行更新

如果我正确理解了问题，您想在循环中再阅读一行吗？

如果是这样，您可以：

1. 只需在循环内读取另一行。

   我的 $another_line = <测试>;
   

2. 保留一些状态标志并在循环的下一次迭代中使用它，并在缓冲区中的标准输入之间累积行：

   我的 $last_line_was_stdin = 0;
   我的@line_buffer = ();
   while ($line = <测试>) {
       如果 (/^#stdin:|/) {
           #
           # 一些代码来处理自上次“stdin”以来累积的所有行
           #
           @line_buffer = ();
           $last_line_was_stdin = 1;
           下一个;
       }
       推@line_buffer，$line；
   }
   

   此解决方案可能无法 100% 满足您的需求，但它定义了您在状态机实现中需要遵循的模式：读取一行。检查您当前的状态（如果重要的话）。根据当前状态和行中的模式，验证对当前行执行的操作（添加到缓冲区？更改状态？如果更改状态，则根据上一个状态处理缓冲区？）

另外，根据您的评论，你的正则表达式中有一个错误 - 管道（|字符）在正则表达式中意味着“OR”，所以你说“如果行以#stdin开头或匹配空正则表达式” - 后一部分始终为真，因此您的正则表达式将 100% 匹配。您需要转义“|”通过 /^#stdin:\|/ 或 /^#stdin:[|]/