Perl Newbie: compare two files contents with same pattern

[YC]

Hi,

If there are two directories both with the same files with same pattern as
follows:

DirX
FileA
name=abc
address=def
tel=123

FileB
name=ghi
address=jkl
tel=789

DirY
FileA
name=mno
address=def
tel=123

FileB
name=ghi
address=jkl
tel=789

If I want to seach and compare the "address" of the two files. If the
"address" is different, I want to replace address of FileB with address of
FileA. Could anyone gives a pointer.





Thanks in advance,
YC

 

[siva chelliah]

Here is an idea:
a) collect all the addresses in file a into an array.
b) now go through file b, compare addresses, if diff. replace it.

To split the fields, you could do split("=", $field)

Easy?