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. __DATA__
  7. B    B    B    B
  8. B    B    B
  9. B    B
  10. B
复制代码
如果要尽量接近口语描述的话:
  1. use List::Util qw/max/;
  2. sub get_each_line { (<DATA>) }
  3. sub get_each_len_of { map { $_=~s/\r?\n$//; length($_) } @_ }
  4. sub print_each_of { grep { printf "%-${_[2]}s    %s\n", $_, $_[4] } @{$_[0]}; }
  5. $newstr = "T";
  6. my @lines = get_each_line;
  7. my $max   = max get_each_len_of @lines;
  8. print_each_of \@lines, set_length => $max, append => $newstr;
  9. __DATA__
  10. B    B    B    B
  11. B    B    B
  12. B    B
  13. B
复制代码
  1. B    B    B    B    T
  2. B    B    B         T
  3. B    B              T
  4. B                   T
复制代码





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