Re^2: Regex conditional match if previous match in same expression is true?

I'm not interested in matching whitespace -- my examples just happen to have some. I would want the results listed as "desired" in the node even if all whitespace was removed.

<–radiant.matrix–>
Ramblings and references
The Code that can be seen is not the true Code
I haven't found a problem yet that can't be solved by a well-placed trebuchet

Comment on Re^2: Regex conditional match if previous match in same expression is true?

Replies are listed 'Best First'.
Re^3: Regex conditional match if previous match in same expression is true? by kyle (Abbot) on Apr 09, 2007 at 18:23 UTC
In that case, how about this: `use Test::More; my %tests = ( 'hello' => 1, '{hello}' => 1, 'hello}' => 0, '{hello' => 0, 'oh {hello} there' => 1, 'oh {hello there' => 0, 'oh hello there' => 1, 'oh hello} there' => 0, ); plan 'tests' => scalar keys %tests; while ( my ( $text, $result ) = each %tests ) { my $hello = qr/hello/; my $test_result = ( $text =~ / \{$hello\} # hello with braces \| # or (?<! \{ ) # not a brace $hello # hello (?! \} ) # also not a brace /x ) ? 1 : 0; is( $test_result, $result, $text ); }` [download] Put your (possibly complicated) match text in a variable so you don't have to change it in two places when it changes. After that, literally match the text with braces and without.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Regex conditional match if previous match in same expression is true?
by kyle (Abbot) on Apr 09, 2007 at 18:23 UTC

In that case, how about this:

use Test::More;

my %tests
    = ( 'hello' => 1,
        '{hello}' => 1,
        'hello}' => 0,
        '{hello' => 0,
        'oh {hello} there' => 1,
        'oh {hello there' => 0,
        'oh hello there' => 1,
        'oh hello} there' => 0,
   );

plan 'tests' => scalar keys %tests;

while ( my ( $text, $result ) = each %tests ) {
    my $hello = qr/hello/;
    my $test_result
        = ( $text =~
            /
            \{$hello\}           # hello with braces
            |                    # or
            (?<! \{ )            # not a brace
            $hello               # hello
            (?!  \} )            # also not a brace
            /x
       ) ? 1 : 0;
    is( $test_result, $result, $text );
}
[download]

Put your (possibly complicated) match text in a variable so you don't have to change it in two places when it changes. After that, literally match the text with braces and without.

[reply]
[d/l]