523066680

Perl 用户路过   

是只提取行标为1以及TOTAL 行的数据吗？
简化版：列标固定，行标采用匹配

use File::Slurp;
my @lines = read_file("abc.st");
my %rows = map { s/^\s+//; (split /\s+/, $_)[0,2] } @lines;
grep { printf "%s 4*6500*(%s)/1500 = %s\n", $_, $rows{$_}, 4*6500*$rows{$_}/1500 } qw(1 TOTAL);
复制代码

感觉会有一句话代码。