有条件地用另一列的值替换列值 perl [关闭]

Question

我正在处理由制表符分隔的非常大数据的多个文件。每一行都有一个日期是非常重要的，但有些只包含一个值“0”。在文件中，如果所需的日期列是“0”，则可以使用附加的日期列。如何将具有“0”值的列替换为附加日期列的值？我的示例数据如下。

ID  NAME    Desired_Date    Additional_Date
1234    jimbob  0   12/23/2014
2345    joejohn 12/30/2014  12/31/2014

下面是我想要的输出：

ID  NAME    Desired_Date    Additional_Date
1234    jimbob  12/23/2014  12/23/2014
2345    joejohn 12/30/2014  12/31/2014

如您所见，我想复制所需日期为“0”的其他日期。我尝试了一些代码，但似乎没有奏效。

while (<>) {
    my @F = split;
    if ($F[2] == 0) {
        print $F[2] = $F[3];
    }
}
print "@F\n";

当前输出为：

Desired_date12/23/2014

Answer 1

你的代码有两个问题：

1. 当字段为 0 时，您应该只复制备用值 - 而不是同时打印分配结果。
2. 你需要打印你读到的每一行（不管你是否修改它。你当前的print "@F\n"在循环之外，所以它只会运行一次。

工作代码：

while (<>) {
    my @F = split;
    if ($F[2] == 0) {
        $F[2] = $F[3];
    }
    print join("\t", @F) . "\n";
}