> Thanks Cripps & Members,
> What should be the way to simplify the undermentioned working code as Part 1
> and part 2 are repetition.
Actually they aren't. Look at them and see. :-)
It's late here. It might be late where you are too.
That makes things that are different look alike sometimes.
};
};
print $count;
};
end of script #
- Original Message -
From: "J.E. Cripps" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, November 16, 2001 4:17 PM
Subject: Re: [PBML] sub-routine help needed.
Given this code:
> 1.@array = qw ( hello world hello how are you );
> 2.$match = 'HEllo';
> 3.print "Your search for $match returns $subroutine $count
> records\n";
> $subroutine = &count;
> sub count {
> foreach $record (@array){
> if (grep /$match/i, $record
