Question

perl 代码中 变量 匹配变量的正则表达式的写法

在一段perl 代码中需要从 文件中逐行读取 $line, 与模式数组中的某一个模式变量进行匹配 $pattern. $patten 是字母和阿拉伯数字的字符串， $line 是apache服务器的配置文件。代码片段：
foreach my $line(@configfile){

if( $line =~ / $patten / ）{
print $line;

}else { ； }

}
我需要正则表达式：“$line 与 模式变量 $pattern 至少匹配一次”。 自己试了多次 /($patten)+/, /$pattern+/ 都不行， 请 Perl 正则表达式高手指点！ 多谢！

Answer 1

说一下你的错误：@pattern是数组变量，数组变量访问的形式，要么是@pattern访问全部变量，要么利用$pattern[$i]的形式访问。你直接写$pattern是访问不到任何东西的。所以需要对@pattern再加一个循环进行正则匹配。下面是我写的perl代码，直接读取数组型字符了，为方面没有读入文件，和你说的问题应该类似。结果图也附上了，不知道和你说的是否符合。

#!/usr/bin/perl
 
@configfile = ("I","am","a","patten1","Not","Apatten");
@patten = ("patten1","patten2","patten3");

$i=0;
$j=0;
foreach my $line (@configfile)
{
      foreach my $pad1 (@patten)
	{		
	  if ($line =~ /$pad1/){
   	      print "\$configfile[$i]与\$patten[$j]匹配\n";
	   }
        $j++;
         }
	$j=0;
	$i ++;
}

Answer 2

很怀疑你是打错字母了

$pattern = 'abcd';
$line = 'abcdefg';

if($line=~m/$pattern/){
    print $line;
   
}

Answer 3

匹配变量需要添加反义字符\，也就是~/\$pattern/

Answer 4

目测是可行的啊