Dear All,
My test is as follows:
$line = "jlla jldsfjlfj lfla (1\p=n-\5) fk (2) ljljj ljlfaufi lfjlakfh
(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
(<lr=C2>2</lr>) ljljj ljlfaufi lfjlakfh (<lr=C10>10</lr>,
<lr=C11>11</lr>) lfjdlaj (<lr=C10>10</lr>,
<lr=C11>11</lr>\p=n-\<lr=C15>15</lr>) ndsfdjksnk (<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-\)/ at
s.pl line 8.
Please help in rectifing the error mentioned.
Thanks and Regards,
Ganesh
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
