TXT中一个坐标列，一个数据列，将数据按坐标生成map

Okelani

perl map.pl data > map.txt

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. sub get {
   
5.     state $min   = 1.4;
   
6.     state $class = 0.05;
   
7.     state $sign  = [ 'A' .. 'J' ];
   
8.     my $in  = shift;
   
9.     my $val = $in - $min;
   
10.     return $sign->[0]  if $val <= 0;
    
11.     return $sign->[-1] if $val > 0.4;
    
12.     return $sign->[ 1 + $val / $class ];
    
13. }
    
14. 
    
15. my %xy;
    
16. my %y;
    
17. 
    
18. while (<>) {
    
19.     my ( $xy, undef, $vol ) = split;
    
20.     #chomp;
    
21.     #say "$_\t", get($vol);
    
22.     my ( $x, $y ) = $xy =~ /\((\S+),(\S+)\)/;
    
23.     $xy{$x}{$y} //= get($vol);
    
24.     $y{$y} //= 1;
    
25. }
    
26. 
    
27. my $NA = '_';
    
28. my ( $xmin, $xmax ) = ( sort { $a <=> $b } keys %xy )[ 0, -1 ];
    
29. my ( $ymin, $ymax ) = ( sort { $a <=> $b } keys %y )[ 0,  -1 ];
    
30. 
    
31. say join "\t", 'y\x', $xmin .. $xmax;
    
32. for ( my $y = $ymax ; $y >= $ymin ; $y-- ) {
    
33.     say join "\t", $y, map { $xy{$_}{$y} // $NA } $xmin .. $xmax;
    
34. }
    
35. 
    
36. __DATA__
    
37. (7,1)            bgr_trim8        1.4796        V
    
38. (8,1)            bgr_trim8        1.6455        V
    

复制代码

Okelani

map.txt

1. y\x        -9        -8        -7        -6        -5        -4        -3        -2        -1        0        1        2        3        4        5        6        7        8        9        10
   
2. 2        D        F        E        C        D        G        G        D        G        H        F        _        _        _        _        _        _        _        _        _
   
3. 1        _        _        _        _        A        _        _        _        G        F        G        D        G        F        F        F        C        F        E        E
   

复制代码

Okelani

回复 24# 情节可以很简单

perl map.pl data > map.txt

Okelani

回复 20# 523066680

    'x' => { 'min' => min( @X ), 'max' => max( @X ) },

Okelani

回复 20# 523066680

18

1.     'x' => { 'min' => fixME
   

复制代码

Okelani

回复 30# 523066680

19楼