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(@chfields
)
{ # Some logic #
last ;
}
}
}
OOOH God...!!!! I was shocked to see the alignment of my code after posting this, but I have no option :)