在 perl 中结合 'if' 和 'if not'

Question

我的httpd.conf 中有以下过滤器：

ExtFilterDefine jsonfilter mode=output intype=application/json cmd="/usr/bin/perl -pe 's|^|qq(\,\") . valid . qq(\"\: ) . qq(\") . time() . \\x0D . qq(\") . qq(\\n)|e if ($==eof) &&  unless (-f q{/tmp/md5_filter.tmp})'"

但是我使用&& 操作符的方式是无效的。如果我请求文件，我不会收到任何输出。过滤器仅应在md5_filter.tmp 文件不存在且s 命令应仅在end of file (eof) 处添加时间戳时运行。有人知道我的代码有什么问题吗？

Answer 1

你的代码有很多奇怪的地方。

/usr/bin/perl -pe 's|^|qq(\,\") . valid . qq(\"\: ) . qq(\") . time() . \\x0D . qq(\") . qq(\\n)|e if ($==eof) &&  unless (-f q{/tmp/md5_filter.tmp})'

• perl -pe 实际上并没有更改文件。不确定这是否是您的意图。如果您确实想更改文件，则需要添加-i 开关。请注意，这会在您每次运行时更改您的文件。
• s| 您已将替换运算符的分隔符从 / 更改为 |。这通常在您需要在模式中使用斜杠 / 并且您希望避免转义它 \/ 时完成。但是，您的图案中没有斜线，因此无需进行此更改。
• ^ 这表示字符串的开始。您的替换将从字符串的开头添加。由于您想添加到文件的末尾，我不确定您的想法。
• qq(\,\") . valid . qq(\"\: ) . qq(\") . time() . \\x0D . qq(\") . qq(\\n) 您似乎认为连接运算符 . 做了一些特别的事情。这句话可以写成qq(,\"valid\": \") . time() . qq(\x0D\"\n)大概。引用和转义有点难以弄清楚。 （无需转义, 和:）
• if ($==eof) 是一种难以言喻的怪异。它表示$= = eof，它将eof() 测试的返回值分配给predefined $= variable（当前页面长度）。我很确定你不是那个意思，只是想检查一下if (eof)。
• if ($==eof) && unless (-f q{/tmp/md5_filter.tmp}) -- 这实际上是两个独立的语句，您不能连续两次使用 post-fix if。你也不需要。您可以将它们链接成一个，如下所示：if ( (eof) && (not -f q{...}) )。

如果我们结合所有这些更正，我们会得到什么？好吧，我们明白了：

/usr/bin/perl -pe' s/^/qq(,\"valid\": \") . time() . qq(\x0D\"\n)/e if ( (eof) && (not -f q{/tmp/md5_filter.tmp}) )'

但是....你对这个声明做了什么？对于文件中的每一行，您正在检查它是否是文件的结尾。如果是，则检查文件是否存在，然后从该行的开头添加一个新字符串到最后一行。

我认为你想要做的是等到文件的最后一行，然后打印它之后的一行。您无需替换即可打印，只需打印即可。所以我们删除替换并用打印替换它。由于我们要在最后一行之后打印，所以我们使用END 块在最后执行代码。

/usr/bin/perl -pe 'END { unless (-f q{/tmp/md5_filter.tmp}) { print qq(\,\"valid\"\: \") . time() . qq(\x0D\"\n) }'

如果文件的最后一行不以换行符结尾，则打印的字符串可能需要以换行符qq(\n... 开头。如果出于某种原因，您实际上打算将字符串写在行首，事情就会变得更加复杂。那么你可能最好使用第一个命令。