regular expression-matching n character of a string

[broloc]

how do i match n character of a string using regular expression?..for example i got a string charmed,i want at least 4 character matched with exact position,so that if i keyed in cracked,the expression will return true.any advice will be much appriciated.thanx.

 

[Coderifous]

$word = "charmed";
$word_2 = "cracked";

for($x=0;$x <= length($word); $x++){
$matchCount++
if(substr($word,$x,1) eq substr($word_2,$x,1));
}

print $matchCount, &quot; character location matches\n&quot;;

 

[broloc]

maybe i didn't put the question right.i don't want to determine the number of character matched.now..i have a string,$mystring=charmed.and user will be ask to enter an input(a string of course),$input..and my program will determined if $input matched with $mystring.if it matched,my program will return true.$input will be consider matched if at least 4 or all of the character in $input matched with $mystring..for example if user key in cracked,then my program will return true...hope this is clear enough.

 

[MikeLacey]

Broloc,

Coderifous' routine will work for you if you wrap it into a sub.

sub MatchCount($$){
my ($word, $word_2) =@_;

my $x, $matchCount;

for($x=0;$x <= length($word); $x++){
$matchCount++
if(substr($word,$x,1) eq substr($word_2,$x,1));
}

return $matchCount;

}

Then, in your script, you can say:

if (MatchCount('charmed','cracked') >= 4){
print &quot;Matched\n&quot;;
} Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

 

[Coderifous]

Thanks Mike.

--jim