Shell Programming and Scripting

Hi all

How do I assign a pattern to a variable after a match is found using a regular expression in PERL?

For example using a regular expression (RE) and matching as given

Code:

 if ($_ =~ /(?:\s*[0-9]+\s*,)*\s*[0-9]+\s*/)

I want to assign the pattern matched by the RE to a variable.
e.g. given the input sentence

Code:

The number is 23,300 .

The value 23,300 should be assigned to a variable (e.g., VALUE).

Any help is appreciated. Thanks in advance.

you can use storage patterns ( ) and then assign to variables using $1,$2 etc

How to use the storage pattern () . Please give me one example. Because, if I put like the following code. It does not give me the desired output.

Code:

my $VALUE;
if ($_ =~ /(?:\s*[0-9]+\s*,)*\s*[0-9]+\s*/)
{
$VALUE = /(?:\s*[0-9]+\s*,)*\s*[0-9]+\s*/ ;
}

Where did you get this pattern from anyways? I'm asking because I think it's strange that you're using non-capturing groups in your regex, yet never heard of capturing groups and how to use them.

Also, as a side note, working on the default variable without a good reason is usually discouraged.

Hi my_perl,

can you tell me what you want to achieve .

ur input is 23,400 .. u want to get 23 and 400 out of it using a RE or something else