What about something like:
Code:
#!/usr/bin/perl
open(FILE,"file1");
@linesone=<FILE>;
close(FILE);
open(FILE,"file2");
@linestwo=<FILE>;
close(FILE);
if(@linesone<@linestwo){$total=@linestwo}
else{$total=@linesone}
for($line=0;$line<$total;$line++){
chop($lineone[$line]);
print "$lineone[$line] $linetwo[$line]";
}
exit;
I wrote that from memory but it should work. If you want to split the colum exactly in half and not just have the lines joined then add a bash escape sequence in the middle of the print statement.