Re: Regular expression

I presume that your brackets cannot be nested? Because in your example strong, all the dollars are between brackets. (Note also that as is, we cannot deduce there are dollar signs in $line, as $10 and $s are two interpolated variables. But let's assume there's a lone q before the first double quote).

Assume that the above is true, and that all brackets are balanced, I'd write something like:

{
    no warnings 'uninitialized';
    $line =~ s/(<[^>]*>|\$[0-9])|\$/$1/g;
}
[download]

Alternatively, keep the warning, replace the replacement with $1 || "" and use /e to eval the replacement.

Comment on Re: Regular expression Select or Download Code

Replies are listed 'Best First'.
Re^2: Regular expression by John M. Dlugosz (Monsignor) on Jun 05, 2009 at 14:54 UTC
Re:Because in your example strong [sic], all the dollars are between brackets. I don't see any square brackets in his post, and the string is not inside the angle brackets that form the tags.	[reply]
Re^3: Regular expression by JavaFan (Canon) on Jun 05, 2009 at 15:23 UTC
I presumed he meant the `<` and `>` characters when he mentioned "square brackets" - otherwise the example doesn't make much sense. And considering the string starts with `<` and ends with `>`, the "between brackets" condition was ambigious. I just pointed out which meaning I was going to assume. It seems that is the same meaning as you assigned to it.	[reply] [d/l] [select]
Re^4: Regular expression by sandy1028 (Sexton) on Jun 08, 2009 at 04:38 UTC
`my $line = "<ci:Name> Lord: Of The $10Ring$s </ci:Name>"; my $words = ''; if ($line =~ m/<.>(.)<\/.*>/) { $words = $1; } print $words;` [download] How to match all the text outside the angle brackets. Here $10 and $s is not displayed on print. From the text "Lord: Of The $10Ring$s" I have to delete ':' and "$". Please help me to proceed. Thanks	[reply] [d/l]


Welcome to the Monastery
	PerlMonks