regex - 这个 perl 脚本片段在做什么？

Question

我一直在尝试在此处搜索有关如何解码正在发生的事情的资源。我找到了几个 Perl“备忘单”，但我找不到标志的定义。我把我认为我知道的注释了，如果我错了，请指正。

我知道“$parm=~s/”使“$parm”的值等于替换正则表达式的返回值。除此之外，我迷路了。我认为“$parm=~s/+r/-s/;”这一行删除回车符和空格，但我不是 100% 确定。那上面的 + 和 - 字符以及所有后续行都让我失望。我以为 + 字符表示“一个或多个”，但第二个参数中 - 的存在让我怀疑这一点。

open(fitmp,"</tmp/new_parms$VAR.log"); <-- stores the file(?) in the file handler 'fitmp'
$parm=<fitmp>;  <-- stores the contents of the file in the variable "$parm"
chop($parm);  <-- stores the last line(character?) of the file in $parm
close(fitmp);  <-- closes the file
unlink("/tmp/new_parms$VAR.log";  <-- deletes the file
if($parm =~ /ABORT/){exit(1);}  <-- closes the program if there is a problem
$parm=~s/\+r/\-s/;
$parm=~s/\+m/\-m/;
$parm=~s/\+p/\-p/;
$parm=~s/\+cp/\-cp/;

Answer 1

你有开放的权利。

下一行取决于 $/ 的值，它为您分隔输入行。默认为换行符。如果在此代码段之前有类似 local $/; 或 $/= undef; 之类的内容，那么这些行将不会被分隔。在默认行为下，第二行只会为您读取日志文件的第一行。如果 $/ 未定义，将读入整个文件。

第三行是chop从 $parm 中删除最后一个字符。 ( chomp 通常是一种更安全的替代方法，它仅在 $/ 包含的内容时才删除结尾。这可能没有区别，因为您的行应该以单个字符结尾 $/，但你永远不知道...)

接下来几行关于关闭和删除文件的内容是正确的。

/ABORT/ 在 $parm 字符串中搜索模式 "ABORT"。

最后的替换都是字面变化，+r 到 -s 和条件 + 到 - (取决于后面的字符)在 $parm 字符串中。

一路打印 $parm 可能会有所帮助，这样您就可以看到发生了什么。