Shell Programming and Scripting

Hi,

I have 2 files.

a.txt & b.txt

Code:

# a.txt contains the following text.
apple
grapes

Code:

# b.txt contains the following text.
banana
pine

My question is.

I want to merge these 2 files based on the delimiter (lets say "#"). How can i do that in Perl?

I tried like this but i did not get good result and that not the good approach.

I do not want to use any perl modules

Here is the code.

Code:

open(FH,"a.txt");
@array=<FH>;
close FH;

open(FH1,"b.txt");
@array1=<FH1>;
close FH1;

push(@array,"#",@array1);

How can improve this?

I want to merge the files based on the delimiter.

How can i merge based on the delimiter in perl?

Output:
[CODE]
apple grapes # banana pine

Regards
Vanitha

Hi,

Something like this,

Code:

#!/usr/bin/perl
open(FH,"<","a.txt");
open(FH1,"<","b.txt");

while (<FH>) { chomp;printf "%s ",$_ ; } close(FH);
printf "# ";
while (<FH1>) { chomp;printf "%s ",$_ ; } close(FH1);
printf "\n";