Perl的正则表达式 - 动态正则表达式

Question

简单的问题（我希望）

特殊字符我有一个​​包含符号的动态字符串：，/，等 基本上它是在我的Apache的错误文件中的日志行URL字符串？

我解析我的日志文件，我想看看如果URL的某些实例中的行存在：

URL线搜索：“http://www.foo.com?blah”

问号把我抛弃了，就像任何specia l正则表达式中的字符。我想下面：

my $test1 = 'my?test'; 
my $test2 = 'this is a my?test blah test'; 

if ($test2 =~ /$test1/) { print "YES!!! \n";} 
else {  print "NOOOO!!! \n"; } 

这将打印NOOOO

my $test1 = 'mytest'; 
my $test2 = 'this is a mytest blah test'; 

if ($test2 =~ /$test1/) { print "YES!!! \n";} 
else {  print "NOOOO!!! \n"; } 

这将打印YES！

我急需这个解决方案。

多谢

Answer 1

你真的需要的正则表达式？问题是，只是一个简单的字符串搜索...

if (index($test2, $test1) >= 0) { print "YES!!! \n";} 
else {  print "NOOOO!!! \n"; } 

Answer 2

也许用 “\ Q” 试图逃跑的特殊字符

my $test1 = 'my?test'; 
my $test2 = 'this is a my?test blah test'; 

if ($test2 =~ /\Q$test1/) { print "YES!!! \n";} 
else {  print "NOOOO!!! \n"; } 

输出中YES!!!

Answer 3

quotemeta可以处理特殊的正则表达式字符。

use warnings; 
use strict; 

my $test1 = quotemeta 'my?test'; 
my $test2 = 'this is a my?test blah test'; 

if ($test2 =~ /$test1/) { print "YES!!! \n";} 
else {  print "NOOOO!!! \n"; } 

{ 
    my $test1 = quotemeta 'mytest'; 
    my $test2 = 'this is a mytest blah test'; 

    if ($test2 =~ /$test1/) { print "YES!!! \n";} 
    else {  print "NOOOO!!! \n"; } 
} 

打印：

YES!!! YES!!!

Answer 4

你有没有在CPAN寻找现有的模块，可以帮助你吗？从PerlMonks，我发现引用Apache :: ParseLog和Apache :: LogRegEx