CODEWITHSUNDEEP
regexperl
vivek
vivek

Reputation: 81

adding regex pattern in string in perl

I want to compare string from one file to another. but another file may contains some element and that element can occur anywhere and it can occur many times also.

Note : these tags needs to be retain in final output.

For e.g.: I want to compare word ‘scripting’.. tag indicates the word to be matched from str2.

$str1 = “perl is an <match>scripting</match> language”;
$str2 = “perl is an s<?..?>cr<?..?>ipti<?..?>ng langu<?..?>age”;

Output required : perl is an <match>s<?..?>cr<?..?>ipti<?..?>ng</match> langu<?..?>age

I am adding pattern after each character:

$str1 =~ {(.)}
{
‘$&(?:(?:<?...?>|\n)+)?’
}esgi;

These works for few case but for few its goes on running. Please suggest.

Upvotes: 0

Views: 134

Answers (1)

Dustin
Dustin

Reputation: 360

(?:(?:<?...?>|\n)+)? is the same as (?:<?...?>|\n)*
Also you dont want to add the pattern after each character; just in between the characters of the matched part of $str1. So no pattern before the first character and no pattern after the last. Otherwise the replace statement will around those tags, and you want them to around the front and back of the words. My guess is that if you are runnging that first replace command over all of $str1 you may end up with quite a large string.
Also see my answer for related question here

Upvotes: 1

Related Questions