linux - 最初のフィールドに基づいて 2 行を結合する

Question

こんにちは、ファイルにこのようなものがあります

12345   aaaaaaaaaabbbbbbbbbb 
23456   bbcbcbbgyhuhuhhhhhhh 
12345   7ijkunmmnniiiiiiii
23456   bbcbcbbgyhuhsdrfrrhhhv

最初に基づいて行を単一の行にマージしたい

フィールド、つまり、

12345   aaaaaaaaaabbbbbbbbbb 12345   7ijkunmmnniiiiiiii
23456 bbcbcbbgyhuhuhhhhhhv 23456   bbcbcbbgyhuhsdrfrrhh

誰でもその方法を教えてもらえますか?

Answer 1

use strict;

open my $fh, '<your_file'
   or die "cant open file $!";

my %result; # result hash

# read file line by line
while (my $line = <$fh>) {
    chomp $line;

    # check format
    if ( $line =~ m/^(\d+)\s+(.*?)$/x ) {

        # add value to anonymous array in hash
        $result{$1} = [] unless exists $result{$1};
        push @{$result{$1}}, $2;
    }
}

# print result
while (my ($key, $values) = each %result) {

   printf "%s ", $key;
   for my $value (@$values) {

       printf "%s,", $value;
   }
}

close $fh;

Answer 2

while (<DATA>) {
    ($x, $y) = split;
    push @{$lines{$x}}, $y;
}

while (($x, $y) = each %lines) {
    print "$x\t$_\t" for @{$y};
    print "\n";
}

__DATA__
12345   aaaaaaaaaabbbbbbbbbb 
23456   bbcbcbbgyhuhuhhhhhhh 
12345   7ijkunmmnniiiiiiii
23456   bbcbcbbgyhuhsdrfrrhhhv

Answer 3

別のawk方法:

awk '
  { A[$1] = A[$1] $0 " " } 
  END { for (k in A) print A[k] }' infile

キーとして各行を連想配列に連結$1します。