in reply to Two Column Data

I don't know if this will help or not but this is my approach assuming the files are relatively small in size and that the lines in each file are equal to each other

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

open my $a, "<", "file1.txt" or die "Failed to open File : $!";
open my $b, "<", "file2.txt" or die "Failed to open File : $!";
open my $out, ">", "output.txt" or die "Failed to open File : $!";

chomp(my @file1=<$a>);
chomp(my @file2=<$b>);

close $a;
close $b;

my $max = @file1;
my $min = 0;

while ($min < $max) {
    print $min."\n";
    print $out "$file1[$min] : $file2[$min]\n";
    $min++;
}
        
close $out;

[download]

Of course with the print $out statement you can use any separator you chose (chose a colon). Hope it helps

Replies are listed 'Best First'.
Re^2: Two Column Data
by PilotinControl (Pilgrim) on May 11, 2015 at 19:31 UTC

    My apologies...the output needs to be sent to STDOUT not to another file. I'll give you a vote for another approach which I see I will be using here shortly.

[reply]
      Ok, try this then

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

open my $a, "<", "file1.txt" or die "Failed to open File : $!";
open my $b, "<", "file2.txt" or die "Failed to open File : $!";

chomp(my @file1=<$a>);
chomp(my @file2=<$b>);

close $a;
close $b;

my $max = @file1;
my $min = 0;

while ($min < $max) {
    print "$file1[$min] : $file2[$min]\n";
    $min++;
}

      [download]

      That should print to standard out
[reply]
[d/l]

        That works fine....however the data needs to be split and have the : removed.

[reply]

In Section Seekers of Perl Wisdom