perlquestion
vighneshmufc
Given below is a perl script which compares one column from one file and checks with a key if it exists in another file and exists in file2.
<code>
use strict;
use warnings;
use Data::Dumper;
my ($file1 ,$file2,$file3)= @ARGV;
open(my $fh, '>', $file3) or die $!;
#reading file1 into a hash
my %hash;
my @fields;
open( my $fh1, '<', $file1 ) or die $!;
while ( my $line = <$fh1> ) {
chomp $line;
next if $line =~ /^\s*$/;
$line =~ s/^\s+|\s+$//g;
$hash{$line} = 1;
}
#print Dumper(\%hash);
close $fh1;
open( my ($fh2), $file2 ) or die $!;
while ( my $row = <$fh2> ) {
chomp $row;
#print "$row\n";
next if $row =~ /^\s*$/;
$row =~ s/^\s+|\s+$//g;
my (@fields) = split( /\|/, $row );
# print "$fields[0]\n ";
if ( exists $hash{ $fields[0] } ) {
print $fh "$row\n";
}
}
close $fh;
close $fh2;
</code>
Now i want it to be able to compare with N number of columns like file 1 having more than 1 columns. What modifications are to be done in this ? The need is to generalize the script and make it a compare utility. Kindly guide <br>
SO basically These are the files<br>
File1<br>
L| D <br>
L| C<br>
L| C<br>
File2<br>
AE|A|D|| <br>
A|A|P| | <br>
A|A|P| |<br>
A|A|P| | <br>
So if i pass Col2 from file1 as parameter and Col3 from file2 as second the output should be<br>
AE|A|D||
<br>Since this contains the column2 value from file1 in its column3