Dear All,
My test is as follows:
$line = "jlla jldsfjlfj lfla (1\p=n-\5) fk (2) ljljj ljlfaufi lfjlakf +h (10, 11) lfjdlaj (10, 11\p=n-\15) ndsfdjksnk (2, 15, 16) dkhfak";
my output of the $line should be like this.
$line = "jlla jldsfjlfj lfla (<lr=C1>1</lr>\p=n-\<lr=C5>5</lr>) fk (<l +r=C2>2</lr>) ljljj ljlfaufi lfjlakfh (<lr=C10>10</lr>, <lr=C11>11</l +r>) lfjdlaj (<lr=C10>10</lr>, <lr=C11>11</lr>\p=n-\<lr=C15>15</lr>) n +dsfdjksnk (<lr=C2>2</lr>, <lr=C15>15</lr>, <lr=C16>16</lr>) dkhfak";
my code is as follows:
$line=~s!\(([1-9]{1,3}((, |\\p=n-\\)[1-9]{1,3})*)\)!\(@{[map"<lr=C$_>$ +_</lr>",split"(, |\\p=n-\\)",$1]}\)!g;
I am getting the following error:
Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE , |\p=n-\)/ a +t s.pl line 8.
Please help in rectifing the error mentioned.
Thanks and Regards,
Ganesh
20050704 Janitored by Corion: Added formatting
In reply to small help with map function by nganesh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |