各位大虾，小弟又遇难处啦

yuanquan08

          ABC =  A1_B1;
          ABD =  C1_D1;
          A1    =  D0_A0;
          B1    =  A1_ABD;
          C1    =  C0;
          D1    =  B0_C1;

这里的"*0"为原始变量。现在想将上面的变量进行处理变成：
       ABC = D0_A0_D0_A0_C0_B0_C0;
          ABD =  C0_B0_C0;
          A1    =  D0_A0;
          B1    =  D0_A0_C0_B0_C0;
          C1    =  C0;
          D1    =  B0_C0;
想建立一个函数不知怎么写啊，希望各位大虾不吝指教。

104359176

呵呵，这个好，看样楼主对语法解析感兴趣啊，建议学 Lisp 吧

jason680

回复 1# yuanquan08



$ perl get_init.pl
ABC = D0_A0_D0_A0_C0_B0_C0;
ABD = C0_B0_C0;
A1 = D0_A0;
B1 = D0_A0_C0_B0_C0;
C1 = C0;
D1 = B0_C0;

$ cat get_init.pl
#!/usr/bin/perl
use strict;
use warnings;


my %hInit;
my @aInit;
while(<DATA>){
  chomp;
  s/\s*;\s*$//;
  my($sKey,@aData) = split /\s*[=_]\s*/;
  $hInit{$sKey} = join " ",@aData;
  push @aInit, $sKey;
}

sub get_init{
  my ($sKey) = @_;
  return $sKey if(!exists $hInit{$sKey});
  while($hInit{$sKey} =~ m/\b(\w+[^0 ])\b/){
    $hInit{$sKey} =~ s/\b(\w+[^0 ])\b/get_init($1)/ge;
  }  
  return $hInit{$sKey};
}
foreach my $sKey(keys %hInit){
  $hInit{$sKey} = get_init($sKey);
}
foreach (@aInit){
   $hInit{$_} =~ s/ /_/g;
   print "$_ = $hInit{$_};\n";
}
__DATA__
ABC =  A1_B1;
ABD =  C1_D1;
A1    =  D0_A0;
B1    =  A1_ABD;
C1    =  C0;
D1    =  B0_C1;

MMMIX

这么长时间了，这楼主发帖的水平还是一如既往的烂啊。

104359176

回复 4# MMMIX


    他的问题都涉及到语言的解析，这是非常底层的技术，他如果持续对这方面的东西有兴趣，一定会走的很远。

yuanquan08

回复 3# jason680


    感谢您每次热情的帮助，针对您的回复，我如果不限制"*0"为原始变量，直到不能替换为之，那该怎么改呢？

yuanquan08

回复 5# 104359176


    谢谢楼上的理解。
   

jason680

回复 6# yuanquan08

sub get_init{
  my ($sKey) = @_;
  return $sKey if(!exists $hInit{$sKey});
  my $sRet = "";
  foreach(split /\s+/, $hInit{$sKey}){
    $sRet .= " " . get_init($_);
  }
  $sRet =~ s/^\s+//;
  $hInit{$sKey} = $sRet;  
}
foreach my $sKey(keys %hInit){
  get_init($sKey);
}
   

104359176

典型的符号表运算

1. #!perl
   
2. 
   
3. use 5.016;
   
4. 
   
5. my $text = <<EOF;
   
6. ABC =  A1_B1;
   
7. ABD =  C1_D1;
   
8. A1  =  D0_A0;
   
9. B1  =  A1_ABD;
   
10. C1  =  C0;
    
11. D1  =  B0_C1;
    
12. EOF
    
13. 
    
14. compute($text);
    
15. 
    
16. sub compute {
    
17.     my $text = shift;
    
18.     my @lines = split /\n/, $text;
    
19.     my $data = {};
    
20.     foreach my $line (@lines) {
    
21.         my ($key, @keys) = $line =~ /[A-Z0-9]+/g;
    
22.         # 取第一个元素为查询键 其他元素为值
    
23.         $data->{ $key } = [ @keys ];
    
24.     }
    
25.     $data = replace_recur($data);
    
26.     output($data)
    
27. }
    
28. 
    
29. sub replace_recur {
    
30.     my $data = shift;
    
31.     foreach my $key (keys $data) {
    
32.         my $over_flag = 0;
    
33.         # 防止出现循环嵌套，进入死循环
    
34.         LOOP:
    
35.         foreach (1 .. 10) {
    
36.             my $value = $data->{$key};
    
37.             my @new_value = ();
    
38.             foreach my $element (@{$value}) {
    
39.                 if (exists $data->{$element}) {
    
40.                     @new_value = (@new_value, @{ $data->{$element} });
    
41.                     $over_flag++;
    
42.                 } else {
    
43.                     push @new_value, $element;
    
44.                 }
    
45.             }
    
46.             $data->{$key} = [ @new_value ];
    
47.             # 如果没有替换行为就终止循环
    
48.             last LOOP if ($over_flag == 0);
    
49.             $over_flag = 0;
    
50.         }
    
51.     }
    
52.     return $data;
    
53. }
    
54. 
    
55. sub output {
    
56.     my $data = shift;
    
57.     while (my ($key, $value) = each %{$data}) {
    
58.         my $value_str = join '_', @{$value};
    
59.         say "$key = $value_str;";
    
60.     }
    
61. }
    

复制代码

yinyuemi

回复 1# yuanquan08

1. cat cu.pl
   
2. 
   
3. #!/usr/bin/env perl
   
4. 
   
5. use strict;
   
6. use Data::Dumper;
   
7. my %h;
   
8. while(<DATA>){
   
9.         s/;//g;
   
10.         /([\S]+)\s+=\s+(.*)/;
    
11.         my $key = $1;
    
12.         my @value = split /_/,$2;
    
13.         map{push @{$h{$key}},$_}@value;
    
14. }
    
15. my $key = shift;
    
16. print $key," = ";
    
17. my $value;
    
18. re($key);
    
19. $value =~ s/_$/;/;
    
20. print $value,"\n";
    
21. 
    
22. sub re{
    
23.                my $key = shift;
    
24.         if ($key =~ /0$/){
    
25.                 $value .= $key."_";
    
26.         }else{
    
27.                       re($_) for @{$h{$key}};
    
28.         }
    
29. }
    
30. 
    
31. __DATA__
    
32. ABC =  A1_B1;
    
33. ABD =  C1_D1;
    
34. A1    =  D0_A0;
    
35. B1    =  A1_ABD;
    
36. C1    =  C0;
    
37. D1    =  B0_C1;
    

复制代码

1. perl cu.pl ABC
   
2. ABC = D0_A0_D0_A0_C0_B0_C0;

复制代码