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

提问者:1310652622 提问时间:2018年06月17日 人气:0
用户提问
在一段perl 代码中需要从 文件中逐行读取 $line, 与模式数组中的某一个模式变量进行匹配 $pattern. $patten 是字母和阿拉伯数字的字符串, $line 是apache服务器的配置文件。代码片段:
foreach my $line(@configfile){

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

}else { ; }

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

很怀疑你是打错字母了

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

if($line=~m/$pattern/){
    print $line;
   
}
辅助答案
用户:雨送黄昏花易落
2018年06月28日

说一下你的错误:@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 ++;
}

用户:c284290231
2018年06月17日
目测是可行的啊