谁用实例说明一下这个正则

yakczh_cu

1.   $text =~ s{
   
2.                  (                        # save in $1
   
3.                      ^                    # start of line  (with /m)
   
4.                      <($block_tags_a)    # start tag = $2
   
5.                      \b                    # word break
   
6.                      (.*\n)*?            # any number of lines, minimally matching
   
7.                      </\2>                # the matching end tag
   
8.                      [ \t]*                # trailing spaces/tabs
   
9.                      (?=\n+|\Z)    # followed by a newline or end of document
   
10.                  )
    
11.              }{
    
12.                  my $key = md5_hex($1);
    
13.                  $g_html_blocks{$key} = $1;
    
14.                  "\n\n" . $key . "\n\n";
    
15.              }egmx;

复制代码

塞图宝

回复 1# yakczh_cu


<tag 000
1
2
3
</tag>            
第一行开始最后一行回车前的部分是$1

由于设置了'e'，所以执行
my $key = md5_hex($1);
$g_html_blocks{$key} = $1;
"\n\n" . $key . "\n\n";

然后最后一句的结果（也就是"\n\n" . $key . "\n\n";）作为替换后的内容