How can I merge two files?

Question

I have two files

File 1:

7118
7457
7591
7539
8001

File 2:

5003
5008
5011
5026
5028
5029
5031

Output t

Answer 1

I'll use a perl script for that.

#!/usr/bin/perl

use strict;

my @file1 = loadf("file1.txt");
my @file2 = loadf("file2.txt");

foreach my $line2 (@file2) {
    $line2 =~ s/^\s+//;
    $line2 =~ s/\s+$//;
    for (my $i = 0; $i < @file1; $i++) {
        $file1[$i] =~ s/^\s+//;
        $file1[$i] =~ s/\s+$//;
        #do the output
        print $file1[$i] . "," . $line2 . "\n";
    }

}

sub loadf($) {
    my @file = ( );
    open(FILE, $_[0] . "\n") or die("[-] Couldn't Open " . $_[0] . "\n");
    @file = ;
    close(FILE);
    return @file;
}