我有 3 个文本文件emp id.txt,之前为 sal.txt,现在为 sal.txt。这 3 个文件的内容:-
员工 ID.txt
emp id ----- 1 4 7 10 13 16 19
在 sal.txt 之前
before sal ----- 23 56 78 97 105 123 145
现在萨尔
now sal ---- 25 60 82 99 109 124 150
我在 shell 脚本中使用了下面的内容
awk '{ for (i=1; i<=NF; i++) RtoC[i]= (RtoC[i]? RtoC[i] FS $i: $i) } END{ for (i in RtoC) print RtoC[i] }'
从行转换为列然后我得到类似的输出 -
1 23 25
4 56 60
7 78 82
10 97 99
13 105 109
16 123 124
19 145 150
emp before now
id sal sal
--- ----- ----
但我想要以下格式的输出,例如-
--------------------------------
|emp id |before sal | now sal |
|--------|---------- | --------|
|1 | 23 | 25 |
|4 | 56 | 60 |
|7 | 78 | 82 |
|10 | 97 | 99 |
|13 | 105 | 109 |
|16 | 123 | 124 |
|19 | 145 | 150 |
--------------------------------
您能否帮我解决这个问题,以便我能够获得上述格式的输出。
答案1
step1:
for i in "emp_id.txt" "beforesal.txt" "nowsal.txt"; do perl -pne "s/ /\n/g" $i >> "$i"fi; done
step2:
paste emp_id.txtfi beforesal.txtfi nowsal.txtfi
输出
emp before now
id sal sal
----- ----- ----
1 23 25
4 56 60
7 78 82
10 97 99
13 105 109
16 123 124
19 145 150
答案2
定义一个将文件转换为列的小函数:
f2c() { tr -s '[:blank:]' '\n' < "$1"; }
然后使用paste
将列缝合在一起,流程替代作为要粘贴的文件参数,以及column
漂亮的输出。
paste <(f2c 'emp id.txt') <(f2c 'before sal.txt') <(f2c 'now sal.txt') | column -t
emp before now
id sal sal
----- ----- ----
1 23 25
4 56 60
7 78 82
10 97 99
13 105 109
16 123 124
19 145 150
答案3
给定awk
命令实际上非常接近您期望的输出,但是由于空格而将标头分成单独的行(如果您的输入文件用 Tab 或其他东西分隔,这不会成为问题),无论如何我不明白标头如何将在最后一行打印也许不同的awk
版本有不同的排序选项为默认;例如,PROCINFO["sorted_in"]="@val_num_desc"
您的输出将类似于以下内容(但仍然不知道数字如何在您的预期结果中按升序排序):
19 145 150
16 123 124
13 105 109
10 97 99
7 78 82
4 56 60
1 23 25
id sal sal
emp before now
----- ----- ----
让我们尝试使用下面修改后的命令,看看这是否是您需要的或接近您真正期望的东西:
awk '{ $2=$1"_"$2; $1="";
for (i=2; i<=NF; i++) RtoC[i]= (RtoC[i]? RtoC[i] "\t" $i: $i) }
END{ PROCINFO["sorted_in"]="@unsorted";
for (i in RtoC) print RtoC[i];
}' emp.txt before.txt new.txt |column -t
输出:
emp_id before_sal now_sal
----- ----- ----
1 23 25
4 56 60
7 78 82
10 97 99
13 105 109
16 123 124
19 145 150