|
|
Perl - multiple keys and merging two files
09-18-2013
#!/usr/bin/perl
use strict;
# vars we need
my $file_a = "a.txt";
my $file_b = "b.txt";
my $file_c = "c.txt";
my %HASH;
my @FILEA;
my @FILEB;
my @UNIQUE;
# open a.txt and b.txt in read mode and c.txt in append mode
open(FILEA, "<$file_a") or die "Unable to open $file_a.\n";
open(FILEB, "<$file_b") or die "Unable to open $file_b.\n";
open(FILEC, ">>$file_c") or die "Unable to write to $file_c.\n";
# store a.txt and b.txt into arrays
@FILEA = <FILEA>;
@FILEB = <FILEB>;
# write the contents of a.txt to c.txt
foreach(@FILEA) {
print FILEC $_;
}
# map the contents of a.txt to a hash
%HASH = map{$_ => 1} @FILEA;
# use grep function to parse out lines that exist
# in both a.txt and b.txt
@UNIQUE = grep(! defined $HASH{$_}, @FILEB);
# write the results to c.txt
foreach(@UNIQUE) {
print FILEC $_;
}
# close files
close(FILEA);
close(FILEB);
close(FILEC);
# done
exit(0);@UNIQUE = grep(! defined $HASH{$_}, @FILEB);x001;frtb70;xyz;109 x001;frvt65;sec;239 m003;wqax34;jul;659 y004;yhud43;yhn;760
x001;abcd80;xyz;193 x001;crrp28;xse;456 p002;lmno10;xyz;784 p002;jfds65;jfd;739 p002;juop88;jup;879 m003;yulo90;rem;542 m003;kihl98;dnt;312 y004;urel25;ewb;342
x001;frtb70;xyz;109 x001;frvt65;sec;239 p002;lmno10;xyz;784 p002;jfds65;jfd;739 p002;juop88;jup;879 m003;wqax34;jul;659 y004;yhud43;yhn;760
#!/usr/bin/env perl
use strict;
use warnings;
my $afile = '/home/home/a.csv';
my $bfile = '/home/home/b.csv';
my $outfile = '/home/home/c.csv';
my %a_hash;
my @a_array;
my @b_array;
open( FILE_C, "> $outfile" ) or die "Can't open $outfile : $!";
open( FILE_A, "< $afile" ) or die "Can't open $afile : $!";
while ( my $aline = <FILE_A> ) {
chomp $aline;
$aline =~ /^(.+?);/;
$a_hash{$1} = 1;
print FILE_C $aline . "\n";
}
open( FILE_B, "< $bfile" ) or die "Can't open $bfile : $!";
while ( my $bline = <FILE_B> ) {
chomp $bline;
$bline =~ /^(.+?);/;
if ( not exists $a_hash{$1} ) {
print FILE_C $bline . "\n";
}
}
close FILE_A;
close FILE_B;
close FILE_C; |
|
|
|