523066680

Perl，安装请咨询搜索引擎。

open READ, "<:raw", "data.txt";

my @divi = map { $_ * 10 } (1 .. 20);  #10 20 30 ... 200
my $i;

while ($e = <READ> )
{
    $e =~s/^\s+//;      #开头空格清除
    $e =~s/\r?\n$//;    #换行符清除
    $i = 0;
    @arr =  map { $divi[$i++] * $_  } split(/\s+/, $e);
    grep { printf("% e  ", $_) } @arr;
    print "\n";
}

close READ;
复制代码

相比之下我这个有点肿，可能有些知识没掌握
输出结果没有验证过

-6.705523e-006   9.132935e+006   2.069218e+006  -1.526766e+007   1.043421e+007  -2.945188e+007   2.172848e+007  
 5.000000e-001   9.238625e+006   4.093383e+006  -1.436891e+007   1.036955e+007  -2.850440e+007   2.380366e+007  
 9.999932e-001   9.967751e+006   7.828288e+006  -1.409941e+007   1.014586e+007  -2.763844e+007   2.568582e+007  
 1.500000e+000   1.016323e+007   1.191119e+007  -1.432231e+007   9.860271e+006  -2.663541e+007   2.749764e+007  
 1.999993e+000   9.631241e+006   1.518526e+007  -1.545164e+007   9.571748e+006  -2.537090e+007   2.923343e+007  
 2.500000e+000   8.920181e+006   1.689968e+007  -1.754524e+007   9.413743e+006  -2.387482e+007   3.087182e+007  
 2.999993e+000   8.686865e+006   1.620382e+007  -1.962749e+007   9.421916e+006  -2.225997e+007   3.236232e+007  
 3.500000e+000   9.163929e+006   1.410576e+007  -2.072869e+007   9.521359e+006  -2.060406e+007   3.358839e+007  
 3.999993e+000   9.702406e+006   1.152561e+007  -2.226319e+007   9.665547e+006  -1.895729e+007   3.468742e+007  
复制代码

523066680

回复  523066680

谢谢，小白还是喜欢纯批，不用安装其他东西。
meiszp 发表于 2016-9-28 22:22

    哈哈哈，这句话说的好任性，潜台词是：
小白还是喜欢各位大大用纯批处理帮我服务，不要安装其他东西，that's too easy，you guys must pay more time.