Re^4: Recursive substitution difficulties

in reply to Re^3: Recursive substitution difficulties
in thread Recursive substitution difficulties

I was humouring your weird way of doing things, but it doesn't scale. Split the input into fields, edit the fields you want

perl -lape'
   $F[1] =~ s{\|([^|]*)\|([^|]*)}{<name>$1</name><value>$2</value>};
   $F[2] =~ s{\|([^|]*)\|([^|]*)}{<foo>$1</foo><bar>$2</bar>};
   $_ = join("\t", @F);
' inputfile
[download]

Comment on Re^4: Recursive substitution difficulties Download Code

Replies are listed 'Best First'.
Re^5: Recursive substitution difficulties by wx27 (Initiate) on Mar 16, 2010 at 14:15 UTC
Thanks for your help. I will look to integrate the solutions you provided and see what is the best way to get from point A to point B (tab-delimited with some variable-length pipe-delimited subfields to XML).	[reply]

In Section Seekers of Perl Wisdom