Question

I need to take the following string and break it into chunks:

[ToNode=cup-subscriber][Reason=Critical service is
down][FromNode=cup-publisher][AppID=Cisco UP Server Recovery Manager]

Each chunk is encapsulated in brackets. I’m looking to do this in Perl, and am looking for direction on a method.

Thanks!

Answer 1

You can split at the point between ] and a [ using lookahead and lookbehind assertions:

$str = '[ToNode=cup-subscriber][Reason=Critical service is down]
        [FromNode=cup-publisher][AppID=Cisco UP Server Recovery Manager]';

@pieces = split/(?<=\])(?=\[)/,$str;

See it