perl - perl 脚本中的粘贴和 awk 错误

Question

我用过

paste Output1.txt Output2.txt | awk '{print $1, $2, $5, $15}' 

使用系统(awk_commamd)在 perl 脚本中。我收到类似

的错误

awk: {print , , , }
awk:        ^ syntax error

需要帮助来解决这个错误

Answer 1

使用纯 perl 复制 paste 和 awk 的工作:

use strict;
use warnings;
use autodie;

my @fhs = map {open my $fh, '<', $_; $fh} qw(Output1.txt Output2.txt);

while (grep {!eof $_} @fhs) {
    my @lines = map {(scalar <$_>) // ''} @fhs;
    chomp @lines;
    my @fields = split ' ', join "\t", @lines;

    print join("\t", grep defined, @fields[0,1,4,14]), "\n";
}