Question

这可能是一个非常新的问题，但是.......

在perl中，我试图在一个表中读入（到一个数组中）并组合前两列的值。因此对于输入文件：

1     7     ABC     DEF     GHI
2     8     ABC     DEF     GHI
3     1     ZYX     MNO     PLQ

我想出去：

17     ABC     DEF     GHI
28     ABC     DEF     GHI
31     ZYX     MNO     PLQ

最简单的方法是什么？

Answer 1

这太短了，所以我必须在答案中添加额外的文字：

while(<>){ s/^(\S+)\s+/$1/; print}

Answer 2

我能想到的最简单方法

Open file

#read file line by line

while input line
    remove trailing newline
    split line into an array
    make index 1 equal index 0 . 1
    remove first element from array
    print the elements of the array followed by \n #to STDOUT or file

如何在数组/矩阵中合并（连接）两列？

2 个答案: