1

我对 Perl 相当陌生。我正在尝试逐行读取文件，在每一行中搜索特定模式。如果找到模式，那么我需要将同一行的不同部分存储在不同的变量中。例如，假设这些是文件中的行 -

01 Started Job 1 Calculation
02 Started Job 2 Publish
03 Completed Job 1 Calculation
04 Started Job 3 Upload
05 Completed Job 2 Publish

我在每一行中搜索“Started Job”这个词。如果找到，我需要将以下作业编号和以字符串开头的作业的名称存储，并将记录 ID（行中的第一个单词）存储到不同的字符串中。到目前为止，这是我拥有的代码 -

while (<READLOG>) 
  {
         if (/Started Job/)
         {
               my @words = split(" ",$_);
               my $recordID = $words[0];
               my $Job = $words[3] . " " . $words[4];
         } 
  }

这暂时有效，但我想知道是否有更好的方法来做到这一点？喜欢存储“Started Job”后面的所有单词吗？

任何帮助深表感谢。谢谢 ！

4

1 回答 1

3

您应该更多地研究正则表达式。可以通过使用匹配组来存储“开始工作”之后的单词，即/Started Job(.*)$/。然后，您将在 中找到该行的其余部分$1。

于 2013-10-02T05:23:14.553 回答