If I understand your stated goal, I think you just need to move the print statement for the lines from file2 so that it's outside the conditional -- that is, you are going to print every line from file2, but you will only be altering the contents of some of the lines.
Also, since you have a hash for the relevant values from file1, you don't need to loop over all the hash keys when reading each line from file2. You just need to test of the field-11 value from file2 exists as a hash key from file1.
Putting those two things together:
use strict;
use warnings;
my ( $file1, $file2 ) = ( 'file1_name_here', 'file2_name_here' );
# read hash keys and values from file1:
open( F, '<', $file1 ) or die "$file1: $!\n";
my %mods;
while (<F>) {
chomp;
my ( $key, $val ) = ( split /\t/ )[0,4];
$mods{$key} = $val;
}
close F;
# read and rewrite file2, altering certain lines as needed
open( IN, '<', $file2 ) or die "$file2: $!\n";
open( OUT, '>', "$file2.new" ) or die "$file2.new: $!\n";
while (<IN>) {
chomp;
my ( $loc, $chk ) = ( split /\t/ )[0,11]; # or should it be [0,10
+]?
if ( $loc =~ /location/ ) { # modify some input lines as needed
$_ .= "\t YRI_iHs\n";
}
elsif ( exists( $mods{$chk} )) {
$_ .= "\t$mods{$chk}\n";
}
print OUT; # print every input line to output file
}
close IN;
close OUT;
# you could rename the output to replace the original...
# rename "$file2.new", $file2;
# (but you might want to check the output first)
If that's not what you meant, then you'll need to explain your goal more clearly, possibly with some sample data.
(updated to fix typo in last comment line) |