Question

Could you help me to correct my parse code.

constant fixup privite ConfigAlarms = <U1 0>         /*  comment here*/

Slip of my code below,
I don’t know how to get the value of U1 and 0 and **/* comment here*/**.

if(/^\s*(constant)\s*(fixup|\/\*fixup\*\/|)\s*(private|)\s*(\w+)^ ...(Need help here.)
{
    $name1 = $1;  # for content
    $name2 = $2;  # for fixup
    $name3 = $3;  # for privite 
    $name4 = $4;  # for ConfigALarms
    $name5 = $5;  # for U1
    $name6 = $6;  # for 0
    $name7 = $7;  # for /*  comment here*/

Thank you for your guide

Updated the completed code

if(/^\s*(constant)\s*(fixup|\/\*fixup\*\/|)\s*(private|)\s*(\w+)\s+=\s+<([a-zA-Z0-9]+)\s+([0-9]+)>\s*\/\*\s*(.*?)\s*\*\/(\r|\n|\s)/)

Answer 1

Take your input:

constant fixup privite ConfigAlarms = <U1 0>         /*  comment here*/

And start replacing the variables with regular expressions while leaving the constants alone (also you need to escape Perl stuff):

constant fixup privite (\w+) = <([a-zA-Z0-9]+) ([0-9]+)>         \/\*  (.*?) \*\/

Then you can make it robust against spaces:

constant\s+fixup\s+privite\s(\w+)\s+=\s+<([a-zA-Z0-9]+)\s+([0-9]+)>\s+\/\*(.*?)\*\/

Your variables are now in $1, $2, and $3.