Re: regex needed

[cheekuperl]

in reply to regex needed

I need to capture anything after $$

my $line = '%TMP%\$$(DATE)_RE_IRD_Soc';
my $line2 = '%RESULTS%\$$(DATE_USA)' ;
my $line3 = '%RESULTS%\$$(1110_DATE_USA)';
@lines=($line,$line2,$line3);
foreach $elem (@lines)
{
    while($elem=~m/(.*)\$\$(.*)/g)
    {
        print "\nBefore: [$1], After : [$2]";
    }
}

I need to capture anything after $$ ,in $1 and $2.
You have not mentioned what exactly you want in $1 and $2.

[doubledecker]

sorry, from $line, I need DATE in $1 and _RE_IRD_Soc in $2 $line2, $line3 doesn't have anything in $2. my idea is to have one regex which satisfy both conditions.

[cheekuperl]

Check if this works:

my $line = '%TMP%\$$(DATE)_RE_IRD_Soc';
my $line2 = '%RESULTS%\$$(DATE_USA)' ;
my $line3 = '%RESULTS%\$$(1110_DATE_USA)';
@lines=($line,$line2,$line3);
foreach $elem (@lines)
{
        if($elem=~m/.*\$\$(\(.*\))(.*)?/)
    {
            print "\nFirst: $1, Second: $2";
    }
}

[aaron_baugher]

It may help to talk it through in words first. The pattern you're looking at is:

• Two dollar signs (metacharacters, will need escaping)
• An open parenthesis (also needs escaping)
• Some text up to a closed parenthesis (capture this in $1)
• A closed parenthesis (escaped)
• Anything else that exists beyond that (captured in $2)

Now just put those elements together in a regex:

if( $line =~ m[ \$\$     # two dollar signs
                \(       # open paren
                ([^)]+)  # capture until closed paren
                \)       # close paren
                (.*)     # capture the rest, if any
               ]x ){
   # do stuff with $1 and $2
}