本帖最后由 523066680 于 2019-1-11 14:12 编辑
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);
复制代码 感觉会有一句话代码。 |