Unix 连接两个以上的文件

Question

我有三个文件，每个文件都有一个 ID 和一个值。

sdt5z@fir-s:~/test$ ls
a.txt  b.txt  c.txt
sdt5z@fir-s:~/test$ cat a.txt 
id1 1
id2 2
id3 3
sdt5z@fir-s:~/test$ cat b.txt 
id1 4
id2 5
id3 6
sdt5z@fir-s:~/test$ cat c.txt 
id1 7
id2 8
id3 9

我想创建一个看起来像这样的文件...

id1 1 4 7
id2 2 5 8
id3 3 6 9

...最好使用单个命令。

我知道连接和粘贴命令。粘贴每次都会复制 id 列：

sdt5z@fir-s:~/test$ paste a.txt b.txt c.txt 
id1 1   id1 4   id1 7
id2 2   id2 5   id2 8
id3 3   id3 6   id3 9

连接效果很好，但一次只能用于两个文件：

sdt5z@fir-s:~/test$ join a.txt b.txt 
id1 1 4
id2 2 5
id3 3 6
sdt5z@fir-s:~/test$ join a.txt b.txt c.txt 
join: extra operand `c.txt'
Try `join --help' for more information.

我还知道粘贴可以通过使用“-”将 STDIN 作为参数之一。例如，我可以使用以下命令复制 join 命令：

sdt5z@fir-s:~/test$ cut -f2 b.txt | paste a.txt -
id1 1   4
id2 2   5
id3 3   6

但我仍然不确定如何修改它以容纳三个文件。

因为我是在 perl 脚本中执行此操作，所以我知道我可以执行一些操作，例如将其放入 foreach 循环中，例如 join file1 file2 > tmp1，加入tmp1 file3 > tmp2 等。但这会变得混乱，我想用一行代码来完成此操作。

Answer 1

join a.txt b.txt|join - c.txt

就足够了

Answer 2

既然您在 Perl 脚本内执行此操作，是否有任何特定原因导致您没有在 Perl 中执行此操作而不是在 shell 中执行操作？

像这样的东西（未经测试！买者自负）：

use File::Slurp; # Slurp the files in if they aren't too big
my @files = qw(a.txt b.txt c.txt);
my %file_data = map ($_ => [ read_file($_) ] ) @files;
my @id_orders;
my %data = ();
my $first_file = 1;
foreach my $file (@files) {
    foreach my $line (@{ $file_data{$file} }) {
        my ($id, $value) = split(/\s+/, $line);
        push @id_orders, $id if $first_file;
        $data{$id} ||= [];
        push @{ $data{$id} }, $value;
    }
    $first_file = 0;
}
foreach my $id (@id_orders) {
    print "$d " . join(" ", @{ $data{$id} }) . "\n";
}

Answer 3

perl -lanE'$h{$F[0]} .= " $F[1]" END{说 $_.$h{$_} foreach 键 %h}' *.txt

应该可以，但无法测试，因为我是通过手机接听的。如果您在 foreach 和 keys 之间放置 sort，您还可以对输出进行排序。

Answer 4

pr -m -t -s\  file1.txt file2.txt|gawk '{print $1"\t"$2"\t"$3"\t"$4}'> finalfile.txt

考虑到 file1 和 file2 有 2 列，1 和 2 代表 file1 中的列，3 和 4 代表 file2 中的列。

您还可以通过这种方式打印每个文件中的任何列，并且它将接受任意数量的文件作为输入。例如，如果您的 file1 有 5 列，则 $6 将是 file2 的第一列。