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


in reply to Re: regex needed
in thread regex needed

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.

Replies are listed 'Best First'.
Re^3: regex needed
by aaron_baugher (Curate) on Jul 12, 2012 at 13:27 UTC

    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]
Re^3: regex needed
by cheekuperl (Monk) on Jul 12, 2012 at 11:29 UTC
    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