in reply to Can anyone make this shorter?

# 3456789_123456789_123456789_123456789_1
perl -pi.bak -e'/^xyz\s*=/&&s/\d+/1+$&/e'

[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re (tilly) 2: Can anyone make this shorter?
by tilly (Archbishop) on Aug 22, 2001 at 06:05 UTC
    When I read the original article, it didn't seem that making a backup was part of the spec? Therefore: 
    # 3456789_123456789_123456789_1234567
perl -pi -e'/^xyz\s*=/&&s/\d+/1+$&/e'

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom