Board logo

标题: [原创代码] [perl][文本处理]追加列元素并自动对齐 [打印本页]
作者: 523066680    时间: 2017-10-19 18:07     标题: [perl][文本处理]追加列元素并自动对齐

本帖最后由 523066680 于 2017-10-19 18:28 编辑

（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
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2