[测验]正则表达式命名捕获的替换

Perlvim

有一个字符串，里面有许多这样的结构

1. my $str = '{aaa:ddd},{ddd:eee:fff:ggg},{abc:abc:abc},{bdc:xef:tks}';

复制代码

将大括号结构中有三个单词的结构中，第一个单词替换成key, 第二个替换成value,第三个替换成flag

1. my $result = '{aaa:ddd},{ddd:eee:fff:ggg},{key1:value1:flag1},{key2:value2:flag2}';

复制代码

需要一个通用的解决方案, 一次捕获多个值，并分别进行替换。

如果有好的解决方案，我就不贴我自己的了。

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. my @f = qw/flag1 flag2 flag3/;
   
5. my @k = qw/key1 key2 key3/;
   
6. my @v = qw/val1 val2 val3/;
   
7. my $i = 0;
   
8. my $s = '{aaa:ddd},{ddd:eee:fff:ggg},{abc:abc:abc},{bdc:xef:tks}';
   
9. 
   
10. $s =~ s/({)[^{:}]+:[^{:}]+:[^{:}]+(})/$1."$k[$i]:$v[$i]:$f[$i++]".$2/eg;
    
11. say $s;
    

复制代码

1. {aaa:ddd},{ddd:eee:fff:ggg},{key1:val1:flag1},{key2:val2:flag2}
   

复制代码

bikong0411

perl -e 'my $str = "{aaa:ddd},{ddd:eee:fff:ggg},{abc:abc:abc},{bdcef:tks}";$str =~ s/\{(?:\w+)?:\w+)?:\w+)\}/$num++;sprintf "%s","{Key:value$num:flag$num}"/eg;print $str."\n";'

mcshell

1. perl -le 'my $str = "{aaa:ddd},{ddd:eee:fff:ggg},{abc:abc:abc},{bdc:xef:tks}"; $str =~s/(?<={)(\w+):(\w+):(\w+)(?=})(?{$conut=1;$count++})/key.$count.":value".$count.":flag".$count/ge;print $str'

复制代码

和楼上貌似差不多

yinyuemi

1. $str =~ s/(?<=\{)([^{}:]+:){2}[^{}:]+(?=\})/key1:value1:flag1/g;

复制代码

Perlvim

我的代码太多了，有50行。还是贴上来吧。

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use YAML qw(Dump);
   
7. 
   
8. our $cluster_id_str = {};
   
9. 
   
10. my $str = '{aaa:ddd},{ddd:eee:fff:ggg},{abc:abc:abc},{bdc:xef:tks}';
    
11. my $regexp = '{(?<key>\w+):(?<value>\w+):(?<flag>\w+)}';
    
12. 
    
13. $str =~ s/($regexp)/replace_cluster_id($1,$regexp)/xmsge;
    
14. say $str;
    
15. 
    
16. # say Dump($cluster_id_str);
    
17. # replace every captured str with cluster id str
    
18. # If regexp have mulpity named capture structure,
    
19. # could replace in same time
    
20. sub replace_cluster_id {
    
21.     my ($match_str, $regexp_str) = @_;
    
22.     my $re_regexp_cluster = '\(\?\<([a-z_]+)\>';
    
23.     my @cluster_name = $regexp_str =~ /$re_regexp_cluster/xmsg;
    
24.     my @capture_str = $match_str =~ /$regexp_str/xmsg;
    
25.     my @location_from = @-;
    
26.     shift @location_from;
    
27.     # Error check: if have error structure of regexp
    
28.     if ((scalar @cluster_name != scalar @capture_str) or
    
29.         (scalar @location_from != scalar @cluster_name)) {
    
30.         say "Regexp $regexp_str have no name capture structure";
    
31.         exit;
    
32.     }
    
33.     foreach my $i (reverse(0 .. $#cluster_name)) {
    
34.         my $from = $location_from[$i];
    
35.         my $length = length $capture_str[$i];
    
36.         my $str = $capture_str[$i];
    
37.         my $replace_id = apply_cluster_id($cluster_name[$i], $str);
    
38.         substr($match_str, $from, $length, $replace_id);
    
39.     }
    
40.     return $match_str;
    
41. }
    
42. 
    
43. sub apply_cluster_id {
    
44.     my ($flag, $str) = @_;
    
45.     state $count = 0;
    
46.     $count++;
    
47.     my $id = sprintf("!%04d$flag!", $count);
    
48.     $cluster_id_str->{$id} = $str;
    
49.     return $id;
    
50. }
    
51. 
    

复制代码

rubyish

太牛了，我试一下啊，多谢了