通过列的值将多行合并为单行

{   a[$1] = a[$1] \";\" $2 }
END { for (item in a ) print item, a[item] }

awk -f awkf.awk ifile.txt | sed \'s/ ;/ /\'

from collections import defaultdict

items = defaultdict(list)
for line in open(\'sourcefile\'):
    key, val = line.split(\'\\t\')
    items[key].append(val)

result = open(\'result\', \'w\')
for k in sorted(items):
    result.write(\'%s\\t%s\\n\' % (k, \';\'.join(items[k])))
result.close()  

import csv

data = {}

reader = csv.DictReader(open(\'infile\',\'r\'),fieldnames=[\'key\',\'value\'],delimiter=\'\\t\')
for row in reader:
    if row[\'key\'] in data:
        data[row[\'key\']].append(row[\'value\'])
    else:
        data[row[\'key\']] = [row[\'value\']]

writer = open(\'outfile\',\'w\')
for key in data:
    writer.write(key + \'\\t\' + \';\'.join(data[key]) + \'\\n\')
writer.close()

#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;

open my $fh, \'<\', \'path/to/file\' or die \"unable to open file:$!\";
my %res;
while(<$fh>) {
    my ($k, $v) = split;
    push @{$res{$k}}, $v;
}
print Dumper \\%res;

$VAR1 = {
      \'c\' => [
               \'bar2\'
             ],
      \'a\' => [
               \'foo\',
               \'bar\',
               \'foo2\'
             ],
      \'b\' => [
               \'bar\'
             ]
    };

#! /usr/bin/env perl

use strict;
use warnings;

# for demo only
*ARGV = *DATA;

my %record;
my @order;
while (<>) {
  chomp;
  my($key,$combine) = split;

  push @order, $key unless exists $record{$key};
  push @{ $record{$key} }, $combine;
}

print $_, \"\\t\", join(\";\", @{ $record{$_} }), \"\\n\" for @order;

__DATA__
a foo
a bar
a foo2
b bar
c bar2

def compress(infilepath, outfilepath):
    input = open(infilepath, \'r\')
    output = open(outfilepath, \'w\')
    prev_index = None

    for line in input:
        index, val = line.split(\'\\t\')
        if index == prev_index:
            output.write(\";%s\" %val)
        else:
            output.write(\"\\n%s %s\" %(index, val))
    input.close()
    output.close()