comment on

Whoops, that last RE fails against just "@example.com".

I think I've got it working with negative look-behind, but try to think of other test cases.

    while( <DATA> ) {
        my( $expect, $string ) = split;
        my  $result = $string =~ 
                m/ @ (?: .*  (?<! [@.] bar) \. )? example\.com $ /xi
            ? 'match' : 'fail';
        printf "  Got result '%s' when expecting '%s' on '%s'\n",
                            $result, $expect, $string
            unless $result eq $expect;
    }

__END__
match  smith@example.com
match  jones@example.com   
match  jones@foo.example.com
fail   jones@bar.example.com
fail   jones@foo.bar.example.com
match  jones@baz.example.com
match  jones@bbar.example.com
fail   jones@bar.example.com.com
fail   rednose@reindeer.org
fail   smythe@exzample.com
fail   teacher@make-an-example.com
[download]

In reply to Re: Re: Match all emails from all subdomains for a domain except one.. (tye) by shenme
in thread Match all emails from all subdomains for a domain except one.. by ehdonhon

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


The stupid question is the question not asked
	PerlMonks