perl - perlを使用してテキストファイルから列を選択する方法

Question

ある列の値を別の列から減算し、差を追加したいのですが、perl でこれを行うにはどうすればよいですか? 私はperlを初めて使用します。したがって、どうすればよいかわかりません。親切に私を助けてください。

Answer 1

まず、データを列に分割します。この場合、列はスペースで区切られます。 split(/ /)列のリストを返します。

一方を他方から減算するには、リストから値を引き出して減算します。

最後に、実行中の合計に差を追加してから、データをループします。

#!/usr/bin/perl

use strict;

my $sum = 0;

while(<DATA>) {
    my @vals = split(/ /);
    my $diff = $vals[1] - $vals[0];
    $sum += $diff;
}

print $sum,"\n";

__DATA__
1 3
3 5
5 7

これは出力されます6--- (3 - 1) + (5 - 3) + (7 - 5)