in reply to Re: Compare two Large FlatFiles
in thread Compare two Large FlatFiles
Hi guys, below is my piece of code....please help me in tuning this...only logic I can think with the knowledge I have on Perl :)
while(my $pline = <PRFILE>)
{
$parrecord = $pline;
my @parfields=split('\|',$parrecord);
chomp(@parfields);
# Child file is already loaded into @carray
foreach (@carray)
{
$chrecord = $_;
@chfields=split('\|',$chrecord);
chomp(@chfields);
if(@chfields4 eq @parfields1)
{ # Some logic #
last ;
}
}
}
OOOH God...!!!! I was shocked to see the alignment of my code after posting this, but I have no option :)
In Section
Seekers of Perl Wisdom