Re^5: RegEx - match !foo followed by foo

The following passes the modified test suite.

use strict;
use Test::More tests => 7;

sub ungonk {
  local $_ = $_[0];
  if (/^(foobar:(?:(?!gonk).){1,5})gonk/) {
    return $1
  } else {
    return undef
  };
};

is ungonk('foobar:hellogonk'), 'foobar:hello';
is ungonk('foobar:gonk'), undef;
is ungonk('foobar:higonk'), 'foobar:hi';
is ungonk('foobar:helloworldgonk'), undef;
is ungonk('foobar:gonkgonk'), undef;
is ungonk('foobar:gonkogonk'), undef;
is ungonk('foobar:ogonkgonk'), 'foobar:o';
[download]

Comment on Re^5: RegEx - match !foo followed by foo Download Code

Replies are listed 'Best First'.
Re^6: RegEx - match !foo followed by foo by Melly (Chaplain) on Mar 16, 2006 at 13:57 UTC
Many thanks! That looks like it. I'll play with this and make sure I understand what's going on - thanks again. Do you have an amazon wishlist? Anything cheap on it? ;) Tom Melly, tom@tomandlu.co.uk	[reply]