空内容的处理

LT2016

请教各位，我写了一个perl程序，用途是在每一行最后添加一列内容。如果原文件最后一列或几列是空的，我的程序添加后列会错乱，而我想保留原来空的列，这种情况如何处理？
我输出这样写的 print "$line,\t$new\n"

比如文件如下，添加一列T:
B    B    B
B    B
我的输出会变成，
B    B    B    T
B    B    T

但是我希望得到如下，
B    B    B    T
B    B           T

flw

先不说怎么用 Perl 实现，
你用汉语先说一遍，这种情况应该怎么办呢？

LT2016

回复 2# flw

我说的不清楚吗？

zhlong8

写两个程序，一个把原文件用空格补齐了，再用你现在的方法添加

LT2016

perl有什么方法在print的时候，打印行尾的空值吗？

523066680

load each line of the file, delete \r and \n at the end of line,
get string length of each line,
get max one,
print each line with formated %-${max}s\t$newstr\n

跛脚英语，就这样
稍微绕一下：

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
    

复制代码