in reply to Re: Regex problem while parsing tagged, hierarchical data
in thread Regex problem while parsing tagged, hierarchical data
or golf by monsieur_champsperl -pi -e 'if(/<level1(\sid=\".*\")>/){$a=$1};if(/<level2>/){$_=~s/( +<level2)>/$1$a>/g}' input or perl -pi -e '$a=m/(<level([12]))(\sid=\".*\")*>/;if($a){$2==1?$b=$3:$_ +=~s/($1)/$1$b/g;}' input or perl -pi -e '$a=m/(<level(1|2))(\sid=\".*\")*>/;$a?$2==1?$b=$3:$_=~s/( +$1)/$1$b/g:next;' input or perl -pi -e '$a=m;(<level(1|2))(\sid=\".*\")*>;;$a?$2==1?$b=$3:$_=~s;( +$1);$1$b;g:1;' input
sorry =) -1 charperl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1) +;$1$b;g:1;' input
insane !!! 33 charsperl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1) +;$1$b;g:1' input
perl -pi -e '/l1(\sid=.*)>/?$a=$1:s;l2>;l2$a>;' input
=)
Mago
mago@rio.pm.org
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Regex problem while parsing tagged, hierarchical data
by smokemachine (Hermit) on Sep 19, 2006 at 12:53 UTC | |
by Mago (Parson) on Sep 19, 2006 at 12:57 UTC | |
by smokemachine (Hermit) on Sep 19, 2006 at 13:14 UTC | |
by mk. (Friar) on Sep 19, 2006 at 13:57 UTC | |
by Mago (Parson) on Sep 19, 2006 at 14:28 UTC |
In Section
Seekers of Perl Wisdom