http://www.perlmonks.org?node_id=981361


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]";
    }
}

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

Replies are listed 'Best First'.
Re^2: regex needed
by doubledecker (Scribe) on Jul 12, 2012 at 10:46 UTC
    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.
[reply]

      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
}

      [download]

      Aaron B.
      Available for small or large Perl jobs; see my home node.

[reply]
[d/l]
      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";
    }
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom