堆栈内存溢出
  繁体   English   中英

如何匹配＆或; 或<或>或| 以正则表达式？

[英]How to match & or ; or < or > or | in a regular expression?

 原文  2011-08-28 16:38:01  1   6    regex/ perl/ syntax

问题描述

以下正则表达式用于确认传递给它的输入是否包含字符串“ ping” 

elsif($RunCommand =~ m/^\s*ping\s+(.+)/)

现在，我想确认传递的输入是否包含管道命令。

以下似乎无法正常工作： 

elsif($RunCommand =~ m/^\s*|\s+(.+)/)

对于上下文，我有以下if，elseif子例程。 我只是在其顶部添加了5个用于检查＆或;的语句。 或<或>或|。 但是它不能正常工作……现在它总是转到＆PrintPageHeaderBC（“ c”）;。 并且包含ping，nslookup等的尝试（可接受的命令）现在不执行应做的工作。 我认为问题一定是我添加的5个正则表达式不正确，无法匹配并且输入的文字包含＆或; 或<或>或|。 有什么帮助吗？ 我确定我所做的5条个人陈述（可能是错误的）也可以合并为一条陈述。 

# First discard command attempts that contain & ; < > |, then acceptable commands are executed, then final else to non-functional command

 if($RunCommand =~ m/^\s*&\s+(.+)/)
    {
            # Print PageHeaderBC that informs of non-functional command
            &PrintPageHeaderBC("c");

    }

 elsif($RunCommand =~ m/^\s*;\s+(.+)/)
    {
            # Print PageHeaderBC that informs of non-functional command
            &PrintPageHeaderBC("c");

    }

 elsif($RunCommand =~ m/^\s*<\s+(.+)/)
    {
            # Print PageHeaderBC that informs of non-functional command
            &PrintPageHeaderBC("c");

    }

 elsif($RunCommand =~ m/^\s*>\s+(.+)/)
    {
            # Print PageHeaderBC that informs of non-functional command
            &PrintPageHeaderBC("c");

    }

 elsif($RunCommand =~ m/^\s*|\s+(.+)/)
    {
            # Print PageHeaderBC that informs of non-functional command
            &PrintPageHeaderBC("c");

    }

# Now start acceptable commands

# PING
elsif($RunCommand =~ m/^\s*ping\s+(.+)/)
{
    &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";

}
# TELNET
elsif($RunCommand =~ m/^\s*telnet\s+(.+)/)
{
    &PrintPageHeader("c");
    #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
    $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
    print "<code>$Prompt $RunCommand</code><xmp>";
    $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
    if(!$WinNT)
    {
        $SIG{'ALRM'} = \&CommandTimeout;
        alarm($CommandTimeoutDuration);
    }
    if($ShowDynamicOutput) # show output as it is generated
    {
        $|=1;
        $Command .= " |";
        open(CommandOutput, $Command);
        while(<CommandOutput>)
        {
            $_ =~ s/(\n|\r\n)$//;
            print "$_\n";
        }
        $|=0;
    }
    else # show output after command completes
    {
        print `$Command`;
    }
    if(!$WinNT)
    {
        alarm(0);
    }
    print "</xmp>";
}
#DIG
elsif($RunCommand =~ m/^\s*dig\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }
#NSLOOKUP
elsif($RunCommand =~ m/^\s*nslookup\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }

#HOST
elsif($RunCommand =~ m/^\s*host\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }

#NMAP
elsif($RunCommand =~ m/^\s*nmap\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }

#TRACEROUTE
    elsif($RunCommand =~ m/^\s*traceroute\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }

#WHOIS
    elsif($RunCommand =~ m/^\s*whois\s+(.+)/)
    {
            &PrintPageHeader("c");
            #$Prompt = $WinNT ? "$CurrentDir> " : "[admin\@$ServerName $CurrentDir]\$ ";
            $Prompt = $WinNT ? "$CurrentDir> " : "\$ ";
            print "<code>$Prompt $RunCommand</code><xmp>";
            $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
            if(!$WinNT)
            {
                    $SIG{'ALRM'} = \&CommandTimeout;
                    alarm($CommandTimeoutDuration);
            }
            if($ShowDynamicOutput) # show output as it is generated
            {
                    $|=1;
                    $Command .= " |";
                    open(CommandOutput, $Command);
                    while(<CommandOutput>)
                    {
                            $_ =~ s/(\n|\r\n)$//;
                            print "$_\n";
                    }
                    $|=0;
            }
            else # show output after command completes
            {
                    print `$Command`;
            }
            if(!$WinNT)
            {
                    alarm(0);
            }
            print "</xmp>";
    }

else
{
            # Print PageHeaderBC that informs of non-functional command
    &PrintPageHeaderBC("c");

    }
&PrintCommandLineInputForm;
&PrintPageFooter;

}

6 个解决方案

解决方案1
 6  2011-08-28 16:41:05

| 符号用于在正则表达式中交替显示。 如果要匹配文字，则需要转义它| 字符： 

m/^\s*\|\s+(.+)/

另外，如果我要冒险猜一猜，我会说它总是落入“失败”子程序的原因是由于该正则表达式。 通过交替（如所写），它可以匹配任何以\\s*或\\s+(.+)开头的字符串，这实际上是由于\\s*的star运算符而导致的任何字符串。

编辑：关于您的评论，由于锚定（ ^ ），这些示例将与您的任何正则表达式都不匹配。 如果我们以字符串ping 4.2.2.2; pwd为例ping 4.2.2.2; pwd ping 4.2.2.2; pwd ，发生的事情是正则表达式引擎在字符串的开头开始匹配，因为它是锚定的。 初始\\s*通过重复零次正确匹配，在这种情况下实际上什么也没做。 然后寻找; 匹配，但下一个字符是4 ，因此失败。 您提供的第二个字符串也是如此。 如果;之后没有空格，它也将会中断; 因为您使用\\s+ 。

老实说，如果你真的只是想阻止任何字符串，即使这么多的包含字符< ， > ， ; ， | 或& ，最简单的方法是使用m/[&;|<>]/g将它们全部放入一个字符类并与之匹配。 由于此正则表达式是未锚定的，因此它将在字符串中的任何位置匹配。 但是，这将完全禁止这些字符，这意味着它们不能以字符串或任何形式出现。 这可能不是您想要的，但是它将应用于您当前已声明的规则（“五个正则表达式应该匹配包含＆或;或<或>或|的任何文本”）。

解决方案2
 3  2011-08-28 16:41:59

elsif($RunCommand =~ m/^\s*|\s+(.+)/)

需要是： 

elsif($RunCommand =~ m/^\s*\|\s+(.+)/)

| 是正则表达式中的逻辑“或”运算符，因此如果要匹配它，则需要对其进行转义

解决方案3
 2  2011-08-28 16:40:25

您需要使用\\来转义特殊字符。 例如，搜索| 逃避它这样， \\| 。 因此，您的正则表达式匹配变为： 

m/^\s*\|\s+(.+)/

以下字符在正则表达式中均具有特殊含义，如果希望按字面意义对它们进行转义，则需要转义这些字符： 

* ? + [ ] ( ) { } ^ $ | \

解决方案4
 1  2011-08-29 02:59:33

使用“字符类”和一个if。

最后的。*没有任何用处，因此不应存在。

允许“一个或多个”尾随空格也无济于事，因此也应将其省略： 

if ($RunCommand =~ m/^\s*[&;<>|]\s/)

解决方案5
 0  2011-08-28 17:05:17

您需要转义管道字符，就像eldarerathis所说的那样。 您可能还想将前5种情况组合到字符类中： 

if($RunCommand =~ m/^\s*[&;><\|]\s+(.+)/) {
    PrintPageHeaderBC("c");
}

这将为您节省大量空间和时间，以备将来维护。

[&;><\\|]将匹配任何指定的字符。

阅读带括号的字符类以了解更多信息：

解决方案6
 0  2011-08-28 17:10:55

如果您使用/ x修饰符来隔开RE，那么它会有所帮助： 

m/^ \s* \& \s+ (.+) /x

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 如何在正则表达式中匹配&#39;或&#39;与&#39;或&#39; 如何匹配特定的正则表达式？ 如何在Javascript中匹配正则表达式 如何将文件类型与正则表达式匹配？ 如何将 {1,0} 与正则表达式匹配 如何限制正则表达式匹配 如何将连字符与正则表达式匹配？ 如何在python中匹配此正则表达式？ 如何编写IF AND正则表达式匹配 如何匹配正则表达式并返回匹配的子字符串
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM