[perl][文本处理]追加列元素并自动对齐

523066680

（Perl区没有话题也要水一个）

可以这样写：

1. use List::Util qw/max/;
   
2. my $newstr = "T";
   
3. my @lines  = <DATA>;
   
4. my $maxlen = max map { $_=~s/\r?\n$//;length($_) } @lines;
   
5. grep { printf "%-${maxlen}s    %s\n", $_, $newstr } @lines;
   
6. 
   
7. __DATA__
   
8. B    B    B    B
   
9. B    B    B
   
10. B    B
    
11. B
    

复制代码

如果要尽量接近口语描述的话：

1. use List::Util qw/max/;
   
2. 
   
3. sub get_each_line { (<DATA>) }
   
4. sub get_each_len_of { map { $_=~s/\r?\n$//; length($_) } @_ }
   
5. sub print_each_of { grep { printf "%-${_[2]}s    %s\n", $_, $_[4] } @{$_[0]}; }
   
6. 
   
7. $newstr = "T";
   
8. my @lines = get_each_line;
   
9. my $max   = max get_each_len_of @lines;
   
10. print_each_of \@lines, set_length => $max, append => $newstr;
    
11. 
    
12. __DATA__
    
13. B    B    B    B
    
14. B    B    B
    
15. B    B
    
16. B
    

复制代码

1. B    B    B    B    T
   
2. B    B    B         T
   
3. B    B              T
   
4. B                   T

复制代码