perl - perldo を使用してファイル内の数値の差を計算する

Question

私は2つの数字を持つファイルを持っています

4     4
4      4
9         8
7     7

各行には、異なる数のスペースが含まれる場合があります。私がやりたいperldoのは、2つの数値の差を計算するために使用することです:

私は今しようとしている

:perldo @a=split(/ +/, $_); $_ =  $a[0] - $a[1]

これでうまくいくと思いますが、ファイルはまったく変更されません。

perldo を使用してこれを行うにはどうすればよいですか?

Answer 1

必須の awk ソリューション

:%!awk '{print $1-$2}'

Answer 2

私はperlについてあまり知りませんが、これはここで機能します：

:perldo @a=split(/ +/, $_); $_ =  $a[0] - $a[1]; print $_

vimでファイルを編集していたので、vimの方法でそれを行うことを検討できます：

:%s/\v(\d+)\s*(\d+)/\=submatch(2)-submatch(1)

Answer 3

シェルのワンライナー:

perl -ne 'if ( /(\d+)(\s+)(\d+)/ ) { print $1 - $3,":$1-$3\n";}' afile.txt