Re^3: Can you assign to pos() in a s/foo/bar/g

I have a similar problem but could not get oha's solution to work...

Problem: I have big files in which all appearances of following class-Attributes shall be shortened like so:
Bla class="x1" class="x2" class="x3" Blabla
==> Bla class="x1 x2 x3" Blabla

With the substitution

s/\s*class=\"([^\"]*)\"\s*class=\"([^\"]*)\"\s*/ class="$1 $2" /sg;

the result is: ==> Bla class="x1 x2" class="x3" Blabla

A loop delivers of course the correct result:

1 while s/class=\"([^\"]*)\"\s*class=\"([^\"]*)\"/class="$1 $2"/sg;

But because the substitution would need several passes to get the result this is not my prefered way.
I would like to have an option, that the substitution is starting again at the position right before the replacement and not after the replacement.
I have tried several times to use \G in the substitution like this one:

s/\G?class=\"([^\"]*)\"\s*class=\"([^\"]*)\"/class="$1 $2"/sg;

s/\G\s*class=\"([^\"]*)\"\s*class=\"([^\"]*)\"\s*/ class="$1 $2" / while /\s*class=\"([^\"]*)\"\s*class=\"([^\"]*)\"\s*/g;

but to no success.
Any Idea, to manage this substitution with one pass?

PS: in oha's example there is a little error if the string starts with _ as f.e. $_ = q{_FR7234C__A_B_C_Bonzo_Dog_D_B};

Comment on Re^3: Can you assign to pos() in a s/foo/bar/g Select or Download Code

Replies are listed 'Best First'.
Re^4: Can you assign to pos() in a s/foo/bar/g by johngg (Canon) on Feb 25, 2010 at 14:39 UTC
I'm not sure you need the complication of oha's method here as it depends on the fact that the left side of the alternation will still match once you have done the first substitution whereas in your problem it won't. Using just a capture group seems to work. `$ perl -E ' > $_ = q{Bla class="x1" class="x2" class="x3" Blabla}; > say; > s{" class="([^"]+)}{ $1}g; > say;' Bla class="x1" class="x2" class="x3" Blabla Bla class="x1 x2 x3" Blabla` [download] Attacking the problem from (literally) a different direction would be another way of achieving the same result without a capture group. `$ perl -E ' > $_ = q{Bla class="x1" class="x2" class="x3" Blabla}; > say; > $r = reverse $_; > $r =~ s{"=ssalc "}{ }g; > $_ = reverse $r; > say;' Bla class="x1" class="x2" class="x3" Blabla Bla class="x1 x2 x3" Blabla $` [download] I hope this is helpful. Cheers, JohnGG Update: I forgot to mention, double-quotes are not regex metacharacters so they don't need to be escaped.	[reply] [d/l] [select]
Re^5: Can you assign to pos() in a s/foo/bar/g by Jaikov (Initiate) on Feb 25, 2010 at 23:21 UTC
Thx John, your tip was very helpful, as it gives me the right idea... Perhaps I did not explain good enough the scenario. But both your solutions have a little error, example: "Bla class="x1" class="x2" otheratr="y0" class="x3" Blabla ==> Bla class="x1 x2" otheratr="y0 x3" Blabla correct would be: Bla class="x1 x2" otheratr="y0" class="x3" Blabla (perfect would be: Bla class="x1 x2 x3" otheratr="y0" Blabla) one-pass solution: `s/(?<=class=")([^"])"\sclass="/$1 /g;` But for smaller files with few iterations the while-loop solution is faster, probably because of the lookbehind operator. `1 while $s1 =~ s/class=\"([^\"])\"\sclass=\"([^\"]*)\"/class="$1 $2"/g;` Thx again, Jaikov	[reply] [d/l] [select]