代码之家 › 专栏 › 技术社区 › vehomzzz

基于第一列将两个文件合并为一个文件

awk shell bash perl

vehomzzz · 技术社区 · 15 年前

我有两个文件,它们的格式都相同--两列都包含一个数字,例如:

文件1

1.00    99
2.00    343
3.00    34
...
10.00   343

1.00    0.4
2.00    0.5
3.00    0.34
...
10.00   0.9

我想生成以下文件(使用,awk,bash perl):

1.00    99      0.4 
2.00    343     0.5      
3.00    34      0.34
...
10.00   343     0.9

谢谢

3 回复 | 直到 15 年前

Dennis Williamson 8 年前

join file1 file2

它假设文件在连接字段上排序。如果不是,您可以这样做:

join <(sort -V file1) <(sort -V file2)

这是一个AWK版本 sort

awk '{a[$1]=a[$1] FS $2} END {for (i in a) print i a[i]}' file1 file2 | sort -V

它似乎比Perl答案更短,可读性更强。

在 gawk

awk 'BEGIN {PROCINFO["sorted_in"] = "@ind_num_asc"} {a[$1]=a[$1] FS $2} END {for (i in a) print i a[i]}' file1 file2

请注意 -V ( --version-sort 分类 上面的命令需要GNU 来自coreutils 7.0或更高版本。感谢@simlev指出它应该在可用时使用。

sid_com 10 年前

Perl解决方案

perl -anE 'push @{$h{$F[0]}}, $F[1]; END{ say "$_\t$h{$_}->[0]\t$h{$_}->[1]" for sort{$a<=>$b} keys %h }' file_1 file_2 > file_3

perl -anE '$h{$F[0]}="$h{$F[0]}\t$F[1]"; END{say "$_$h{$_}" for sort {$a<=>$b} keys %h}' file_1 file_2

如果在第一个文件的第二列中有没有值的条目,则一行程序的行为与联接示例不同。

agershun 11 年前

您可以使用Alacon命令行实用程序 Alasql 数据库。

Node.js 然后 Alasql 包裹:

要从制表符分隔的文件中联接两个数据,可以使用以下命令:

> node alacon "SELECT * INTO TSV("main.txt") FROM TSV('data1.txt') data1 
                   JOIN TSV('data2.txt') data2 USING [0]"

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

2 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

2 年前

nick · 向后交换文件名

2 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

2 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前