Como juntar dois arquivos baseados em campos sem reorganizar a ordem da coluna?

1

Eu quero criar um arquivo que contenha colunas de dois arquivos de entrada. File1 é como:

s,a
k,b
h,c

O arquivo 2 é:

f,a
g,b 

A saída deve ser como:

s,a,f
k,b,g
h,c,-

estou usando o comando de junção como

join  -a1 -a2 -t , -1 2 -2 2 -o auto -e "-" file1 file2 > joinoutput

estou saindo como

a,s,f
b,k,g
c,h,-

por favor me ajude a consertar Eu não posso especificar a ordem da coluna como -o '1.1' como. se no meu primeiro número de arquivo da coluna é n e segundo arquivo é n eu preciso ver n + n -1 obrigado antecipadamente

    
por amicos 20.11.2015 / 06:47

2 respostas

0

Substitua -o auto por -o '1.1 1.2 2.1'

para obter:

s,a,f
k,b,g
h,c,-
    
por 20.11.2015 / 07:33
0

Em perl algo assim:

#!/usr/bin/env perl
use strict;
use warnings;

#Data Dumper is for diagnostic printing
use Data::Dumper;


#open second file for reading
open( my $file2, '<', 'sampleb.txt' ) or die $!;

#slurp this file into a hash (key value map) - reverse them, so we use
#the second value as a lookup key. 
my %key_values = reverse map {/(\w+),(\w+)/} <$file2>;
close($file2);

#print what we got in that map for diag reasons. 
print Dumper \%key_values;

 #open the first file
open( my $file1, '<', 'samplea.txt' ) or die $!;
#iterate by line
while (<$file1>) {
    chomp; #strip trailing line feed. 
    #split this line on comma
    my ( $key, $value ) = split /,/;
    #loopup "$value" in that hash we created - use that if it's defined, or '-' otherwise. 
    print join( ",", $key, $value, $key_values{$value} // '-' ), "\n";
}
close ( $file1 ); 

Saídas:

s,a,f
k,b,g
h,c,-
    
por 03.12.2015 / 12:23