Re^2: Regex problem while parsing tagged, hierarchical data

in reply to Re: Regex problem while parsing tagged, hierarchical data
in thread Regex problem while parsing tagged, hierarchical data


perl -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
[download]

or golf by monsieur_champs


perl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1)
+;$1$b;g:1;' input
[download]

sorry =) -1 char


perl -pi -e 'm;(<level(1|2))(\sid=\".*\")*>;;$&?$2==1?$b=$3:$_=~s;($1)
+;$1$b;g:1' input
[download]

insane !!! 33 chars


perl -pi -e '/l1(\sid=.*)>/?$a=$1:s;l2>;l2$a>;' input
[download]

Mago
mago@rio.pm.org

Comment on Re^2: Regex problem while parsing tagged, hierarchical data Select or Download Code

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
`perl -pi -e '/(<level(1\|2))(\sid=\".\")>/;$&?$2==1?$b=$3:$_=~s;($1);$1$b;g:1;' input`	[reply] [d/l]
Re^4: Regex problem while parsing tagged, hierarchical data by Mago (Parson) on Sep 19, 2006 at 12:57 UTC
Ups !! -1 char `perl -pi -e '/(<level(1\|2))(\sid=\".\")>/;$&?$2==1?$b=$3:$_=~s;($1); +$1$b;g:1' input` [download] Mago mago@rio.pm.org	[reply] [d/l]
Re^5: Regex problem while parsing tagged, hierarchical data by smokemachine (Hermit) on Sep 19, 2006 at 13:14 UTC
`perl -pi -e '/(<level(1\|2))( id=\".\")>/;$&?$2==1?$b=$3:$_=~s;($1);$1$b;g:1' input`	[reply] [d/l]
Re^6: Regex problem while parsing tagged, hierarchical data by mk. (Friar) on Sep 19, 2006 at 13:57 UTC
Re^7: Regex problem while parsing tagged, hierarchical data by Mago (Parson) on Sep 19, 2006 at 14:28 UTC

In Section Seekers of Perl Wisdom