Hoe kan een kolom weglaten dat het vergelijken van twee kolommen attributen van twee verschillende csv-bestanden?

Question

Hoe kan een kolom weglaten dat het vergelijken van twee kolommen attributen van twee verschillende csv-bestanden?

stemmen

-3

Hej Op zoek naar een oplossing voor dit geval: verwacht een oplossing van coders van python, Mysql en MongoDB.

Case: Een kolom (col_F) in file2 waarden uitstrekken vergelijken bestand 1 en bestand regel voor regel en kolom tot kolom !!

We hebben een relatie tussen de twee bestanden (file1 en bestand2), die col_A

Verwachte resultaten beneden

Final results_ extended file2 with col_F
col_A col_B col_C   col_D   col_F
A1       B    C       D      F1
A2       B    C       D      F2
A5       B    C       D      F5
AZ       B    C       D      FZ
AX       B    C       D      FX
A#       B    C       D      F#
A2       B    C       D      F2


            File1
                col_A       col_F
                    A1       F1
                    A2       F2
                    A5       F5
                    AZ       FZ
                    AX       FX
                    A#       F#
                    A2       F2

            File2 before extension
                  col_A  col_B  col_C   col_D
                    A1  B        C       D
                    A2  B        C       D
                    A5  B        C       D
                    AZ  B        C       D
                    AX  B        C       D
                    A#  B        C       D
                    A2  B        C       D

mysql python-3.x perl mongodb-query

De vraag is gesteld op 02/12/2019 om 21:55
bron van user Jay

In andere talen...

1 antwoorden

Dave Cross · Answer 1 · 2019-12-03 10:01

U zegt dat u wilt oplossingen in Python, MySQL of MongoDB. Maar je hebt de vraag met "perl" getagd. Dus hier is een Perl-oplossing.

#!/usr/bin/perl

use strict;
use warnings;

my %file1 = get_file1();

open my $fh2, '<', 'File2' or die "File 2: $!\n";

chomp(my $header = <$fh2>);
print "$header\tcol_F\n";

while (<$fh2>) {
  chomp;
  my $colA = (split ' ')[0];
  print "$_\t$file1{$colA}\n";
}

sub get_file1 {
  my %hash;

  open my $fh1, '<', 'File1' or die "File 1: $!\n";

  <$fh1>; # skip headers
  while (<$fh1>) {
    chomp;
    my ($key, $val) = split ' ';
    $hash{$key} = $val;
  }

  return %hash;
}