regex needed

doubledecker has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: regex needed by moritz (Cardinal) on Jul 12, 2012 at 11:50 UTC
`my ($before, $after) = split /\$\$/, $line, 2;` [download] Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
Re: regex needed by Anonymous Monk on Jul 12, 2012 at 10:47 UTC
Your code doesn't show any attempts at matching , or you want what? `my( @this ) = $line =~ /$regex/gi; my @want = ( 'DATE', '_RE_IRD_Soc' ); Test::More::is_deeply( \@this, \@want, "got what I needed");` [download] This ought to do `$regex = qr{ \$ $ ( [^$]+ ) # $1 \) (.*) # $2 }xmi;` [download] Death to Dot Star!	[reply] [d/l] [select]
Re: regex needed by BillKSmith (Monsignor) on Jul 12, 2012 at 11:52 UTC
The /g option on your regular expression does not do anything useful here and can cause problems.	[reply]
Re^2: regex needed by Anonymous Monk on Jul 12, 2012 at 11:55 UTC
Yup, its a syntax error	[reply]
Re: regex needed by cheekuperl (Monk) on Jul 12, 2012 at 10:44 UTC
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.	[reply] [d/l]
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]
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]
Re: regex needed by monsoon (Pilgrim) on Jul 12, 2012 at 15:01 UTC
Another way of doing it `my (undef,$one,$two) = split /[()]/, $line;` [download]	[reply] [d/l]
Re: regex needed by ckj (Chaplain) on Jul 12, 2012 at 19:02 UTC
This will work: `my $line = '%TMP%\$$(DATE)_RE_IRD_Soc'; my $line2 = '%RESULTS%\$$(DATE_USA)' ; my $line3 = '%RESULTS%\$$(1110_DATE_USA)'; foreach my $x ($line, $line2, $line3) {print "lklklk"; while($x=~m/\$\$$(.?)$(\w)/g) { print "1st Element is [$1] and second is : [$2]\n"; } }` [download]	[reply] [d/l]