in reply to Perl Regex

There are many ways to do this. I would propose a repeated split instead of a regex. First split on ][, then for each of the results split on |, take the fourth element and split that on +. Sounds more complicated than it is: 

use strict;
use warnings;
use Data::Dumper;

my $data = '[-3|1|29x250+46+26|200+300+464|Get][-3|1|29x250+46+26|132+
+100+244|come][-3|1|29x250+46+26|220+124+432|Go]';
my @splitted =  map { [ split /\+/, (split /\|/)[3] ] } split /]\[/, $
+data;
print Dumper \@splitted;

[download]

As a result you get

$VAR1 = [
          [
            '200',
            '300',
            '464'
          ],
          [
            '132',
            '100',
            '244'
          ],
          [
            '220',
            '124',
            '432'
          ]
        ];

[download]

Replies are listed 'Best First'.
Re^2: Perl Regex
by smls (Friar) on Oct 10, 2013 at 11:41 UTC

    Using split instead of a regex may result in shorter code in this case, but you'll no longer have strict input validation, and the script will use up more RAM.

    Update: See my longer answer below.

[reply]
[d/l]
Re^2: Perl Regex
by Buddyhelp (Initiate) on Oct 10, 2013 at 11:21 UTC

    Thank you hdb, but i need the values in separate variables like $var1 = 200, $var2= 300 and $var3 = 464.How can this be achieved?

    Moreover I also need the "29x250+46+26" values separately. Since I was able to already retrieve them using regex, I asked only about the remaining values that i could not get. Is there a way to write a single regex to obtain all the values. Again, please point me if i am wrong.

    Thanks a lot again.
[reply]

      If you want to build an expression parser, you want to separate the tokens. If you really, really want to write your tokeniser as a single regular expression, the following might help you:

      #!perl -w
use strict;
use Data::Dumper;

while (<DATA>) {
    my @tokens= m!\s*
                  (
                   \d+    # any sequence of digits
                  |[-+x/] # or an operator
                  )
                  \s*
                 !sxg;
    print Dumper \@tokens;
}

__DATA__
--1
300+400x500
3 + 4 x 5

      [download]

      Note that this tokenizer does not care for signs and also does not care for syntactical/semantical correctness. If you introduce parentheses, you will have to check their matching in the actual parser, and you will also have to deal with unary minus, like "-1" and "+1", which are somewhat different from expressions like "2 - 1" and "2 + 1".

      Update: I now realize that you're trying to tackle this problem in a larger context. I recommend against trying to use one regular expression for the whole task. First extract the formula, then split up the formula into its terms. Do not try to merge the capturing of an unknown number of elements together with the capturing of a known number of elements.

[reply]
[d/l]
        Thank you very much for the input. But it seems to be a little complicated for me to put this in. If you see in the code that I have posted, I am able to get all the values except for the words like get,come and go. Can you please tell me why is that, how I can modify the existing regex to retrieve the get,come and go as well. Thanks,
[reply]

      In your original code you forgot to escape the last pipe. Fixing that should do the trick.

[reply]
        Thanks hdb..it works now :)
[reply]

In Section Seekers of Perl Wisdom