Perl 如何添加值并将其打印出来

嗨，我的档案里有这样的东西

147.840 15.12
188.160 15.12
678.720 15.12
565.440 15.12

不，我想在第一个数字上加0.76，在第二个数字上加7.84。我想对文件中的所有数字都这样做。输出应如下所示（总和）

我如何使用perl one liner实现它

perl -lane 'print join " ", $F[0]+0.76, $F[1]+7.84' file

转换解释

• -l在打印时选择每行并添加换行符
• -（在空白处）自动拆分为

  @F

  数组
• -n添加

  while（）{}

  循环代码
• -e以代码作为参数

---

使用perl一行程序：

perl -lape '$F[0] += 0.76; $F[1] += 7.84; $_ = "@F"' file

开关：

• -l

  ：启用行结束处理

• -a

  ：在空间上拆分行并将其加载到数组中

  @F

• -p

  ：为输入文件中的每一行创建

  while（）{…；print}

  循环

• -e

  ：告诉

  perl

  在命令行上执行代码

  ---

不幸的是，没有人从命令行预测到

$，

的优雅分配，因此

打印$F[0]+0.76，$F[1]+7.84

是可能的。

perl -lape '$F[0] += 0.76; $F[1] += 7.84; $_ = "@F"' file