Perl字符串正则表达式-需要说明

Question

我对Perl很陌生。 我有下面的代码片段可以正常工作，但我不完全理解：

for ($i = 1; $i <= $pop->Count(); $i++) {
    foreach ( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i and print $_, "\n";
    }
}

$ pop-> Head是由Mail :: POP3Client函数返回的字符串或字符串数​​组，它是一堆电子邮件的标题。 第3行是某种正则表达式，它从标头中提取FROM和SUBJECT。

我的问题是，打印功能如何仅打印“发件人”和“主题”而标题中没有其他所有内容？ “和”是什么意思-这肯定不是布尔值，可以吗？ 最重要的是，我想将From字符串放入其自己的变量（我的$ fromline）中。 我该怎么做呢？

我希望这对某些Perl专业人士来说很容易，这让我感到困惑！

提前致谢。

Answer 1

ARGHHH ...我输入答案时问题已被编辑。 好吧，把我的答案中不再相关的部分扔掉，集中在具体的问题上：

外循环遍历邮箱中的所有邮件。
内部循环未指定循环变量，因此使用特殊变量$_ 。
在通过内部循环的每次迭代中， $_是消息号$i头行。

/^(From|Subject):\s+/i and print $_, "\n";

该行的第一部分，直到and是一个模式。 我们没有指定处理模式的方式，因此它与$_隐式匹配。 （这是使$_变得特别的原因之一。）这使我们进行了是/否测试：该模式是否与标题行匹配？

模式将测试该项目是否以（ < ）单词“ From”或“ Subject”开头，然后紧跟冒号和一个或多个空格字符。 。（这不是正确的模式来匹配RFC 822头空白是冒号两侧 可选的模式应该更恰当地/^(From|Subject)\\s*:\\s*/i 。但是，这是一个独立的问题。）模式末尾的i表示忽略大小写，因此from或SUBJECT都可以。

and表示如果存在匹配项，则继续评估（即执行）该表达式。 如果没有比赛，后面的任何内容and被忽略。

表达式的其余部分将打印标题行（ $_ ）和换行符（ "\\n" ）。

在perl中， and和or是布尔运算符。 它们是&&和||同义词 ，但它们的优先级要低得多，这使得编写简短提示表达式更容易，而不会引起很多括号的混乱。

将“ From”行捕获到单独变量中的最小更改是将以下行添加到内部循环中：

/^From\s*:\s*(.*)$/i and $fromline = $1;

您可能还应该放

$fromline = undef

在循环之前，以便可以在循环之后测试是否存在From：行。

还有其他方法可以做到这一点。 实际上，这是perl的口头禅：“有多种方法可以做到这一点。” 在将余额存储在$fromline之前，我已经从行的开头删除了“ From：”，但是我不知道您的需求。

Answer 2

这是合乎逻辑的， and存在短路。 如果左侧的结果为true（例如，如果该正则表达式匹配），则其右侧的结果为print 。

如果左侧的表达式为false，则不需要评估右侧，因为最终结果仍为false，因此将其跳过。

另请参阅： perldoc perlop