对来自两个不同文件的两行进行平方和相乘 -Perl

Question

如何使用 Perl 对来自两个不同文件的两行进行平方然后相乘？
这是我的两个文件：

file1:
ID_A    AAA BBB CCC DDD FFF LLL 
ID_B    F   F   L   L   L   L   
SCORE    0.750   0.000   0.857   0.857   1.286   0.000  

file2:
ID_A    AAA BBB CCC DDD FFF LLL 
ID_B    F   F   L   L   L   L   
SCORE    1.333   0.667   1.636   0.000   1.091   0.545    

我想对两个文件的“SCORE”行中的每个值进行平方，然后将它们相乘，例如； file1 SCORE AAA to LLL 和对应的 file2 SCORE AAA to LLL：

 ie (0.750 * 0.750) * (1.333 * 1.333)
    (0.000 * 0.000) * (0.667 * 0.667)
     and so on... 

请帮我用 Perl 编写这个程序。

Answer 1

记住数组中的方块，当你遇到它们时乘以下一个方块：

#!/usr/bin/perl
use warnings;
use strict;

my @results;
while (<>) {
    if (/^SCORE/) {
        my @scores = split;
        shift @scores;
        $_ *= $_ for @scores;
        if (@results) {
            @results = map { $_ * shift @scores } @results;
        } else {
            @results = @scores;
        }
    }
}

print "@results\n";

保存到mutliply.pl，以multiply.pl file1 file2运行。

输出：

0.9995000625 0 1.965749810704 0 1.968481956676 0