Perl：匹配在引号中包含斜线的字符串

Question

我目前正在编写一个 Perl 脚本来解析一个配置文件。语法如下

{command parameter1 parameter2}

第二个参数是可选的。首先，我只想提取{ 和} 之间的内容。我正在使用此代码

while (<FILE>) {
    chomp;
    unless ($_ =~ m/^\/\//) {
            $_ =~ /^\{(.*?)\}/s;
            print $1;
}

字符串将被进一步评估，而不是print 命令。我现在的问题是脚本停止使用某些字符串

只要参数周围有引号，脚本就可以工作。这个

{exec sed 's/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new}

将返回括号之间的内容，但由于可能有第二个参数，现在很难区分没有引号的参数

其他字符串，如

{exec "cp /etc/ssh/sshd_config /etc/ssh/sshd_config.bak"}
{exec "/etc/init.d/ssh reload"}

完美运行，包括引号。

但是现在，引号中的字符串，包括斜杠或加号（可能还有其他），此时只会冻结 perl 脚本：

{exec "chmod +x /root/setSSHTimer.sh"}
{exec "sed 's/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new"}

都带引号。将第一个重写为“chmod 770 ...”时，它再次起作用。

任何想法是什么导致了这里的问题？

Answer 1

问题不在于您显示的代码，它只是提取了{...} 大括号之间的所有内容，而在于进一步评估的代码。如果您遇到问题，请发布此内容

请注意，您可以通过使用不同的分隔符来避免在正则表达式中转义斜杠，并且像 next if m|^//| 这样的行可以避免将循环的所有其余部分放在 if 语句中

解析命令行很尴尬 - 因为您必须处理包含在 "..." 和 '...' 引号中的参数，允许在参数中使用转义引号 - 但可能

这是一个似乎可以正确解析所有示例数据的程序

use strict;
use warnings;

while (<DATA>) {

  next if m|^//| or not /\S/;

  if (/^\{(.*?)\}/) {
    my $command = $1;
    my @fields = $command =~ /'(?:\\'|[^'])*'|"(?:\\"|[^"])*"|\S+/g;
    print join(' ', map "[$_]", @fields), "\n";
  }
}

__DATA__
{exec sed 's/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new'}
{exec "cp /etc/ssh/sshd_config /etc/ssh/sshd_config.bak"}
{exec "/etc/init.d/ssh reload"}
{exec "chmod +x /root/setSSHTimer.sh"}
{exec "sed 's/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new"}

输出

[exec] [sed] ['s/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new']
[exec] ["cp /etc/ssh/sshd_config /etc/ssh/sshd_config.bak"]
[exec] ["/etc/init.d/ssh reload"]
[exec] ["chmod +x /root/setSSHTimer.sh"]
[exec] ["sed 's/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new"]

---

更新

这种配置格式至少应该分成几行，以便可以删除引号和转义符，例如

exec
sed
s/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/ /etc/ssh/sshd_config > /etc/ssh/sshd_config.new

exec
cp /etc/ssh/sshd_config /etc/ssh/sshd_config.bak

exec
/etc/init.d/ssh reload

exec
chmod +x /root/setSSHTimer.sh

exec
sed
s/ClientAliveInterval\ 300/ClientAliveInterval\ 1800/\' /etc/ssh/sshd_config > /etc/ssh/sshd_config.new

正确输入和解析都非常容易（尽管我确信您最后的sed 示例是错误的！）