perl if未执行

莫莫小米

在log.txt中匹配regex.txt中第一列的行，并把中间的字符(\w)作为%hash的 key ，log.txt中匹配的行作为 value

1. use strict;
   
2. open(MYFILE,"E:/log.txt") or die("Can't open log.txt");
   
3. open(OUTFILE,">E:/result.txt") or die("Can't open result.txt");
   
4. open(REGEX,"E:/regex.txt") or die("Can't open regex.txt");
   
5. 
   
6. my %hash;
   
7. my @a = <REGEX>;
   
8. while (my $log = <MYFILE>){
   
9.     foreach my $a (@a) {
   
10.         my @line = split/ /,$a;
    
11.         my $regex = $line[0];
    
12.         my $w = $1;
    
13.         if ($log =~ /$regex/) {
    
14.             $hash{$w} = $log;
    
15.         }
    
16.     }
    
17. }

复制代码

我调试发现执行if语句时陷入死循环，这是为什么呢？
regex.txt的部分内容为：

1. qw(\w)qw $1
   
2. qe(\w)qe $2
   
3. re(\w)re $3
   
4. te(\w)te $4
   
5. qa(\w)qa $5
   
6. we(\w)we $6

复制代码

错了，if语句不是死循环，是没有执行，是因为regex.txt写错了还是什么原因？

rubyish

line 12, 13

1. my $w = $1;
   
2. if ($log =~ /$regex/) {
   

复制代码

==>

1. 
   
2. if ($log =~ /$regex/) {
   
3.     my $w = $1;
   

复制代码

莫莫小米

回复 2# rubyish

大牛，赞一个

不过为什么放在外面就不行呢
   

xiaoxingan99

放外面你还没匹配上呢，$1不是你希望的匹配内容吧？是存下来的别的东西

rubyish

回复 3# 莫莫小米

为什么放在外面就不行呢

xiaoxingan99:

放外面你还没匹配上呢

莫莫小米

懂了，谢谢两位大牛

j_cle

小白也过来学习下，应该是$1一开始没定义导致的吧，$1指匹配之后的括号中的数据