How to get a sub portion of a string using perl?

Question

Here's the string I'm using and the display of this string can be rearrange in any other and in my case, I'm only interested in getting the first parenthesis text and putting the remaining text on its on line..

For example,

(test network) or test(section memory) or test(section storage)

Ideal output:

test section network
or test(section memory) or test(section storage)

Here's the perl code I attempt to use to accomplish this goal.

    while(<readline>)
    {
        $_ =~ s/^\(test (.*)\)(.*)/test section $1\n$2/gi;
    }

The output does not match the ideal output I'm looking for.

arnaudbey · Accepted Answer · 2013-11-27 15:38:15Z

2

perreal answer seems good, but here is another solution using ungreedyness (using ? after the *)

s/^\(test (.*?)\)\s*(.*)/test section $1\n$2/gi

answered Nov 27, 2013 at 15:38

arnaudbey

9001 gold badge11 silver badges20 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

perreal · Accepted Answer · 2013-11-27 15:14:24Z

1

Try this:

s/^\(test ([^)]*)\)\s*(.*)/test section $1\n$2/gi

answered Nov 27, 2013 at 15:14

perreal

98.7k23 gold badges159 silver badges187 bronze badges

Comments

dethorpe · Accepted Answer · 2013-11-27 15:36:53Z

1

your expression is being too greedy, the first bit (test (.*)) matches up the the last ) on the line, so dosn't work.

Make the expression non-greedy

s/^\(test (.*?)\)(.*)/test section $1\n$2/gi

probably don't need the g (global) modifier either.

answered Nov 27, 2013 at 15:36

dethorpe

5312 silver badges10 bronze badges

Collectives™ on Stack Overflow

How to get a sub portion of a string using perl?

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related