Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: adding ";" to void elements

by jwkrahn (Abbot)
on Feb 12, 2008 at 16:34 UTC ( [id://667609]=note: print w/replies, xml ) Need Help??


in reply to adding ";" to void elements

$ echo "a;3
b;2;3
c;5;4
d;6" | perl -pe'y/;//==1&&s/$/;/'
a;3;
b;2;3
c;5;4
d;6;

[download]

Replies are listed 'Best First'.
Re^2: adding ";" to void elements
by reasonablekeith (Deacon) on Feb 12, 2008 at 16:53 UTC
    I went beyond the spec, and padded lines with no semi-colons too... 
    perl -e 's^$^";"x(2-y-;--)^e' -p data

    [download]
    ---
    my name's not Keith, and I'm not reasonable.
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://667609]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others avoiding work at the Monastery: (None)
    As of 2024-04-25 03:54 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found