Copy First file's content & Paste into second file

[dillipkumar]

Hi,

I have 2 files having contents:

target.txt
----------
1=av
2
a=
#abc
4
b=
7
8
c=
5=abc
6=def
d=
8
9


source.txt
----------
a=100
c=200
b=400
d=300


I want to copy all the data of source.txt file & paste into target.txt file. i.e. find all the data of target.txt in source.txt file, if found in source.txt file then copy the contents of source.txt file & paste into target.txt file in same location, like below output.


target.txt
----------
1=av
2
a=100
#abc
4
b=400
7
8
c=200
5=abc
6=def
d=300
8
9


I have written a perl script, but it is not working properly.

#! /usr/bin/perl -w


open SRC, "source.txt" or die $!;
while($src=<SRC>)
{
  chomp($src);
  
  $src =~ s/^\s*//;  
  $src =~ s/\s*$//;
  
  ($f,$s)=split(/=/,$src);
  
  push(@spl_f_src, $f);
  push(@spl_s_src, $s);
}

open TGT, "+<target.txt" or die $!;
while($tgt=<TGT>)
{
	chomp($tgt);
	$tgt =~ s/^\s*//;  
	$tgt =~ s/\s*$//;
	push(@OC,$tgt);
}

for ($mv=0;$mv<=$#spl_f_src;$mv++)
{
	for($ad=0;$ad <= $#OC;$ad++)
	{	
			if("$spl_f_src[$mv]=" eq $OC[$ad])
			{
				print "$spl_f_src[$mv]=$spl_s_src[$mv]\n";
				mv++;
				last;
			}
			else
			{
				print "$OC[$ad]\n";
			}
	$ad++:
	}
	
}

close(TGT);
close(SRC);

Please somebody help me to solve this.

~Thanks