Re^3: Using Look-ahead and Look-behind

I changed the sub TestEquity to allow for any text between Private and Equity, but I can't get it to work. What have I done wrong?

sub TestEquity {
    return 1 if $_[0] =~ m/(?<!private).*equity/;
    return 0;
}
[download]

Comment on Re^3: Using Look-ahead and Look-behind Download Code

Replies are listed 'Best First'.
Re^4: Using Look-ahead and Look-behind by AnomalousMonk (Archbishop) on Jun 19, 2014 at 12:09 UTC
How about just (untested, and also case-sensitive): `sub TestEquity { return $_[0] =~ m/private.equity/ ? 0 : $_[0] =~ m/equity/ ? 1 : 0 ; }` [download] This could be slightly simplified if you can tolerate `""` (empty string) as a false flag in addition to or in place of 0. BTW: "I can't get it to work" is rarely helpful as a problem description. How about some input strings and actual versus expected output? Update:* Changed `$_[0] =~ m/private.equity/` to `$_[0] =~ m/private/` because it makes more sense. Update:* ... and then changed it back to `$_[0] =~ m/private.equity/` because it actually makes even more sense that way! (sigh)*	[reply] [d/l] [select]
Re^4: Using Look-ahead and Look-behind by Anonymous Monk on Jun 19, 2014 at 23:13 UTC
I changed the sub TestEquity to allow for any text between Private and Equity, but I can't get it to work. What have I done wrong? Impossible to say, although the anomalous one makes a good point	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks