分页: 1 / 1

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

发表于 : 2017年10月19日 18:31
523066680
(没有话题也要水一个)

可以这样写:

use List::Util qw/max/;
my $newstr = "T";
my @lines = <DATA>;
my $maxlen = max map { $_=~s/\r?\n$//;length($_) } @lines;
grep { printf "%-${maxlen}s %s\n", $_, $newstr } @lines;

__DATA__
B B B B
B B B
B B
B


或者绕一些,为了接近口语描述:

use List::Util qw/max/;

sub get_each_line { (<DATA>) }
sub get_each_len_of { map { $_=~s/\r?\n$//; length($_) } @_ }
sub print_each_of { grep { printf "%-${_[2]}s %s\n", $_, $_[4] } @{$_[0]}; }

$newstr = "T";
my @lines = get_each_line;
my $max = max get_each_len_of @lines;
print_each_of \@lines, set_length => $max, append => $newstr;

__DATA__
B B B B
B B B
B B
B


B B B B T
B B B T
B B T
B T
[Finished in 0.6s]