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

104359176

回复 20# 104359176


    数据加上下面这行，就over了。

1. C1      =   C0_ABD;
   

复制代码

yinyuemi

104359176 发表于 2014-04-10 08:16
回复 16# rubyish

      这个也叫美啊？简直就是天书密码。排版倒是挺美的，这种形式用于代码加 ...

perl自由之风“诲人不倦”，rubyish大神“中毒”太深

xiumu2280

来一发~~

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use File::Basename;
   
6. 
   
7. my %hash;
   
8. while (<DATA>) {
   
9.         chomp;
   
10.         s/;//;
    
11.         my ($key,@value) = split /\s+\=\s+|_/;
    
12.         $hash{$key} = \@value;
    
13. }
    
14. 
    
15. 
    
16. sub circle {
    
17.         my $key = shift;
    
18.         my @data = @{$hash{$key}};
    
19.         undef $hash{$key};
    
20.         my $n = 0;
    
21.         foreach my $cell (@data) {
    
22.                 $hash{$cell}
    
23.                         ? do{push @{$hash{$key}},@{$hash{$cell}};$n++}
    
24.                         : push @{$hash{$key}},$cell;
    
25.         }
    
26.         return if $n==0;
    
27.         circle($key);
    
28. }
    
29. map {circle($_)}keys %hash;
    
30. print Dumper \%hash;
    
31. 
    
32. 
    
33. 
    
34. 
    
35. __DATA__
    
36. ABC =  A1_B1;
    
37. ABD =  C1_D1;
    
38. A1    =  D0_A0;
    
39. B1    =  A1_ABD;
    
40. C1    =  C0_ABD;
    
41. D1    =  B0_C1;

复制代码

rubyish

回复 20# 104359176
来个正常版本 ~
非天书, 非密码, 可执行 ~

Perl 的 表现力 , 赞一个 ~

104359176

回复 24# rubyish


    这次不是天书，是史前古卷。

xiumu2280

我想知道  这个png是怎么做出来的···回复 24# rubyish


   

flw

回复 5# 104359176


    搞语言解析的同时，也别忘了提高汉语水平。

flw

回复 12# MMMIX


    是的。

stanley_tam

真尝试执行了。。电脑表示严重hold不住。。。{:3_188:} 回复 20# 104359176


   

yestreenstars

1. #!/usr/bin/perl
   
2. my %h;
   
3. my @data = <DATA>;
   
4. map { my ( $k, $v ) = /(\S+)\s*=\s*(\S+);/; $h{$k} = $v; } @data;
   
5. for my $i (0..$#data) {
   
6.         my @line = split /[ \t]+/, $data[$i];
   
7.         {
   
8.                 my $k = 0;
   
9.                 while ( my ( $k, $v ) = each %h ) {
   
10.                         $k = 1 if $line[3] =~ s/$k/$v/g;
    
11.                 }
    
12.                 redo if $k;
    
13.         }
    
14.         print join ' ', @line;
    
15. }
    
16. __DATA__
    
17.           ABC =  A1_B1;
    
18.           ABD =  C1_D1;
    
19.           A1    =  D0_A0;
    
20.           B1    =  A1_ABD;
    
21.           C1    =  C0;
    
22.           D1    =  B0_C1;

复制代码