Re: Merging two files and changing format

You can read from both input files simlultaneously:

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

open my $IN1, '<', 'infile_1' or die $!;
open my $IN2, '<', 'infile_2' or die $!;
open my $OUT, '>', 'test2'    or die $!;

while (my $in1 = <$IN1>) {
    chomp $in1;
    defined(my $in2 = <$IN2>) or die "file2 too short\n";
    $in2 =~ s/\s//g;
    print {$OUT} join("\t", split /\s+/, $in1), "\t", join("\t", split
+ //, $in2), "\n";
}
die "file1 too short\n" if <$IN2>;
close $OUT;
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Merging two files and changing format Download Code

Replies are listed 'Best First'.
Re^2: Merging two files and changing format by webby01 (Initiate) on Oct 11, 2012 at 18:32 UTC
this code gives me a file with 805948 rows, when the desired amount of rows is 660918.	[reply]
Re^2: Merging two files and changing format by webby01 (Initiate) on Oct 11, 2012 at 18:37 UTC
i think the problem is that some entries are -- instead of, 'AA' for example in the case of missing data. Are there any modifications I can make to the code to remedy this? Thank you.	[reply]
Re^3: Merging two files and changing format by choroba (Cardinal) on Oct 12, 2012 at 07:29 UTC
Please, show an example of a pair of lines that is not processed correctly. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^4: Merging two files and changing format by webby01 (Initiate) on Oct 12, 2012 at 16:46 UTC
your code is printing extra blank lines between lines of good output sed -n '1, 5{=;p;}' test2 1 M MitoA10045G 0 10045 A A A A... 2 3 M MitoA10551G 0 10551 A A A A ... 4 5 M MitoA11252G 0 11252 A A A A ...	[reply]
Re^5: Merging two files and changing format by choroba (Cardinal) on Oct 12, 2012 at 16:49 UTC
Re^6: Merging two files and changing format by webby01 (Initiate) on Oct 12, 2012 at 17:08 UTC
Some notes below your chosen depth have not been shown here